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ABSTRACT 


^  This  thesis  documents  the  development  of  a 
micro-computer  knowledge-based  integrated  configuration 
management  system  for  use  by  Naval  Supply  Systems  Command 
(NAVSUP)  Stock  Point  Logistics  Integrated  Communications 
Environment  (SPLICE)  Project  Staff.  A  myriad  of 
configuration  heuristics  associated  with  the  configuration 
of  a  SPLICE  site  are  identified.  It  also  provides  SPLICE 
project  staff  personnel  a  more  accurate,  reliable  and 
efficient  method  of  performing  the  conf iguration  process  and 
managing  the  overall  project. 

The  development  of  this  integrated  conf iguration 
management  system  employs  both  a  prototype  and  software 
engineering  methodology.  The  integrated  configuration 
management  system  will  be  developed  using  custom  generated 
software  and  the  logical  integration  of  several 
off-the-shelf  commercial  software  packages.  >■  ~  ■' 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed 
in  this  research  may  not  have  been  exercised  for  all  cases 
of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 

A.  PURPOSE 

The  Naval  Supply  Systems  Command  (NAVSUP)  Stock  Point 
Logistics  Integrated  Communications  Environment  (SPLICE) 
Project  Manager  is  tasked  with  the  responsibility  to 
oversee,  direct  and  review  all  aspects  of  the  SPLICE 
project.  More  specific  responsibilities  of  the  SPLICE 
Project  Manager  include: 

1 .  ADP  equipment  acquisition 

2.  ADP  software  development 

3.  Coordination  of  installations  and  implementations  wi 
field  activities 

In  order  to  perform  the  latter  of  the  above 
responsibilities,  the  Project  Manager  must  maintain  a 
complete  history  of  all  configuration  components  and 
component  changes.  This  requirement  applies  to  each 
component  of  hardware,  software  and  documentation  for  the 
complete  fifteen  year  life  cycle  of  the  pro j ect . [ Ref .  1 ) 

This  thesis  is  designed  to  provide  the  Project  Manager 
the  capability  to  perform  these  functions  in  an  automated 
manner.  A  micro-computer  knowledge-based  integrated 
conf iguration  management  system  is  seen  as  the  means  to 
accomplish  the  task.  To  aid  in  the  development  of  such  a 
system  and  reduce  development  time  and  difficulty, 


functional  off-the-shelf  commercial  packages,  where 
feasible,  were  used.  The  system  was  also  designed  as  a 
user-friendly  interactive  system. 

B.  BACKGROUND 

In  1977,  NAVSUP  conceived  and  developed  the  SPLICE 
project  to  accomplish  the  following  goals: 

1.  Provide  state-of-the-art  local  and  long  haul 
telecommunications  capabilities  to  sixty-two  NAVSUP 
Stock  Points 

2.  Provide  interactive  and  distributed  automated  data 
processing  (ADP)  capabilities  to  SPLICE  sites 

3.  Provide  capacity  relief  to  aging  Burroughs  hosts  at 
the  Stock  Points 

4.  Standardize  and  upgrade,  via  mass  replacement,  the 
myriad  of  minicomputers  existing  at  Stock  Points 

To  achieve  these  goals,  NAVSUP  initiated  a  competitive 
solicitation  for  " fault- tolerant"  hardware  and  software. 
The  solicitation  was  completed  in  November  1983  and  the 
contract  was  awarded  to  Federal  Data  Corporation  ( FDC ) . 

FDC  proposed  TANDEM  hardware  and  software  to  meet  most  of 
the  solicitation  processing  and  local  communication 
requirements.  Network  System  Corporation  hardware  and 
software  were  proposed  to  meet  the  local  inter-host 
communication  requirements. 

Shortly  after  the  SPLICE  contract  award,  hardware1  and 
software  components  had  to  be  ordered.  NAVSUP  faced  a 
dilemma.  Only  a  few  SPLICE  personnel  had  worked  closely 
with  the  SPLICE  acquisition  benchmark  and  negotiations. 


These  few  people  were  the  only  personnel  that  had  sufficient 
knowledge  of  the  system  to  configure  and  generate  delivery 
orders.  These  personnel  developed  initial  orders  by  hand  to 
meet  the  immediate  need.  Numerous  minor  errors  were 
encountered  with  initial  orders.  FDC  corrected  the  orders 
to  the  government  and  received  additional  compensation  for 
their  efforts. 

This  manual  configuration  process  was  later  automated 
using  a  software  product  called  SUPERCALC2.  It  has 
subsequently  transitioned  to  LOTUS  1-2-3.  The  basic  method 
of  developing  these  orders  remained  virtually  manual.  These 
few  SPLICE  personnel,  with  FDC  assistance,  developed  a 
series  of  "rules  of  thumb"  used  to  configure  individual  site 
systems.  Many  of  the  original  SPLICE  group  have  moved  on, 
taking  their  knowledge  of  the  system  with  them. 

C.  SCOPE 

A  knowledge-based  integrated  configuration  management 
software  system  designed  to  run  on  a  micro- computer  was 
proposed  by  a  former  Fleet  Material  Support  Office"*  (FMSO) 


FMSO  is  the  Central  Design  Agency  for  all  NAVSUP 
software  development  projects.  As  such,  FMSO  is  responsible 
for  the  project  development  of  the  SPLICE  project  under  the 
guidance  and  direction  of  the  Systems  Commander  Project 
Manager,  NAVSUP. 
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SPLICE  project  officer^  to  codify  these  "rules  of  thumb. 

The  proposed  integrated  configuration  management  system  wil 
provide  NAVSUP  with  the  capability  to  develop  and  maintain 
SPLICE  configurations  and  delivery  orders  and  to  perform 
conf iguration  management  for  the  overall  project.  The 
proposed  integrated  system  will  be  composed  of  three 
software  modules  designed  to: 

1.  Configure  initial  SPLICE  site  systems  by  answering  a 
series  of  configuration  related  questions 

2.  Restructure  the  system  configurer  output  file  into  a 
format  compatible  for  financial  and  "what-if"  analysi 

3.  Restructure  the  financial  module  output  file  into  a 
format  compatible  for  entry  into  a  data  base 
management  system 


Generate  a  series  of  configuration  management  reports 
to : 


a.  obtain  an  overall  project  report 

b.  obtain  a  report  for  a  particular  site 

c.  obtain  a  report  for  a  delivery  order  issued  on  a 
particular  date 

5.  Generate  a  maintenance  delivery  order  for  a  specific 
SPLICE  site 

6.  Generate  a  set  of  mailing  labels  for  all  designated 
SPLICE  sites 
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Lieutenant  Commander  Edward  J.  CASE,  Supply  Corps, 
United  States  Navy  served  as  SPLICE  project  officer  from 
September  1981  to  August  1984.  LCDR  CASE  was  enrolled  as  a 
student  at  the  Naval  Postgraduate  School  from  October  1984 
to  March  1986.  Much  of  the  research  and  development  of  the 
micro-computer  knowledge-based  integrated  configuration 
management  system  is  attributed  to  the  prior  knowledge, 
experience  and  efforts  of  LCDR  CASE. 


Development  of  the  micro-computer  knowledge-based  integrated 
configuration  management  system  and  successful 
implementation  of  the  configuration  heuristics  will  provide 
the  NAVSUP  SPLICE  project  manager  with  the  capability  to 
perform  all  assigned  configuration  management  tasks. 


II.  CONFIGURATION  RULES 


The  success  of  the  knowledge-based  integrated 
configuration  management  system  is  largely  dependent  upon 
the  accurate  implementation  of  the  numerous  heuristics 
involved  in  the  configuration  of  SPLICE  site  components. 
Heuristics  which  must  be  considered  during  the  configuration 
process  fall  into  two  categories: 

1.  basic  configuration  rules  which  apply  to  all  contract 
line  items  under  consideration 

2.  specific  configuration  rules  which  apply  only  to 
selective  contract  line  items 

A  breakdown  and  discussion  of  these  two  categories  of 

heuristics  is  provided  below. 

A.  BASIC  CONFIGURATION  RULES 

A  TANDEM  processing  system  consists  of  a  mainframe  and 
its  free  standing  peripherals.  A  small  standard  mainframe 
normally  includes  two  cabinets: 

1.  processor  (CPU)  cabinet 

2.  tape  cabinet 

The  processor  cabinet  houses  the  processing  units  (CPUs)  and 
associated  power  supplies.  The  tape  cabinet  houses  a 
magnetic  tape  unit,  Diagnostic  Link  control  panel,  I/O  patch 
panels,  battery  pack  or  I/O  power  supply  modules.  The  I/O 
patch  panels  provide  attachment  points  for  the  signal  cables 


of  various  peripherals  (ex:  CRT  terminals,  line  printers, 
large  capacity  disks,  etc.).  Patch  panels  are  connected  to 
the  device  controllers  residing  in  the  system  cabinets 
through  internal  cabling. 

Additional  cabinets  (ex:  processor,  tape,  patch  panel 
and  expansion)  may  be  added  as  necessary.  Patch  panel 
cabinets  provide  space  for  additional  patch  panels  when  tape 
cabinet  capacity  is  inadequate.  Generally,  mainframe 
cabinets  are  fastened  together  side-by-side  to  form  a  single 
unit . 

When  two  processor  cabinets  are  used  in  a  system  and 
both  cabinets  contain  I/O  controllers,  additional  space  for 
I/O  only  power  supplies  may  be  required.  Additional  I/O 
only  power  supplies  may  be  housed  in  system  expansion 
cabinets . 

System  expansion  cabinets  are  required  for  systems  with 
three  or  more  processor  cabinets  (or  with  two  processor 
cabinets  connected  as  noted  above).  I/O  only  cabinets  must 
be  ordered  when  system  composition  reaches  four  system 
cabinets.  I/O  only  cabinets  may  also  be  necessary  to 
accommodate  increased  I/O  device  loads. 

Twenty-four  I/O  slots  (four  identical  backplane 
assemblies  each  containing  six  board  slots)  are  available  in 
a  Nonstop  TXP  processor  cabinet.  The  placement  of 
controller  boards  may  result  in  the  need  to  order  additional 
system  or  I/O  expansion  cabinets. 

1  3 


Include  one  Operations  and  Service  Processor  (OSP)  with 
each  system. 

Every  processing  unit  is  supplied  with  a  standard  power 
supply  module.  The  power  supply  provides  several  DC  voltage 
levels  for  use  by  the  CPU,  memory  and  I/O  device 
controllers.  No  redundant  power  supply  exists  for  the  CPU. 
Redundancy  at  the  processor  unit  is  obtained  with  multiple 
processor  units. 

In  a  simple  configuration  all  device  controllers  are 
connected  to  both  I/O  channels.  A  simple  configuration  may 
be  two  processors  with  limited  memory  and  I/O  capability. 

The  I/O  channel  for  a  processing  unit  can  accommodate  up 
to  thirty-two  I/O  device  controllers.  Each  device 
controller  can  control  a  maximum  of  eight  devices. 

Every  I/O  controller  has  two  addresses,  is  dual-ported 
and  is  connected  to  two  processor  channels. 

A  one-to-one  relationship  exists  between  a  controller 
address  and  the  number  of  circuit  boards  it  represents  with 
the  following  exceptions: 

1 .  One  3106  disc  controller  consists  of  two  boards 

2.  The  6303  asynchronous  controller  board  accounts  for 
four  controller  addresses  regardless  of  the  number  of 
communications  lines  it  controls.  The  four  controller 
addresses  can  represent  from  one  to  three  boards:  one 
6303  plus  one  or  two  6304  expansion  boards 

A  fiber  optic  link  (FOX)  permits  multiple  configurations 
of  up  to  sixteen  TANDEM  processors  each  to  be  directly 
interfaced.  One  6700  FOX  controller  is  required  per  node. 


A  special  backplane  upgrade  and  replacement  is  included  with 
the  6700  controller.  The  FOX  controller  must  reside  in  the 
first  six  (leftmost)  I/O  slots  in  the  system  directly  under 
processor  number  zero.  Any  system  configuration  which 
includes  FOX  must  consider  this  requirement.  Some  such 
systems  may  require  an  additional  I/O  cabinet  to  accommodate 
all  controllers.  The  FOX  controller  consumes  approximately 
forty-eight  amperes  of  +5  VDC  power  and  may  impact  the  power 
configuration  considerations. 

A  five  strand  one-hundred  meter  air  plenum 
pre- terminated  cable,  model  7618,  should  be  utilized.  The 
7618  cable  is  (JL  approved  for  use  in  air  plenum  spaces 
(under  raised  floors,  above  false  ceilings,  etc.)  without 
need  for  installation  in  conduit  (UL  rating  VW1 ) .  The  fifth 
strand  is  provided  as  an  integral  part  of  the  cable  and 
serves  as  a  spare  in  case  of  breakage  or  intermittent 
voltage  levels. 

Terminal  communications  to  the  TANDEM  hosts  is 
accomplished  via  specific  processor  resident  ASYNC  or  SYNC 
controllers  or  is  off-loaded  to  a  6100  controller 
(communications  processor). 

Network  Systems  Corporation  (NSC)  HYPERchannel  products 
enable  two  or  more  computer  systems  to  communicate  with  each 
other  at  multi-megabit  rates.  A  HYPERchannel  network 
consists  of  one  or  more  coaxial  cables  running  the  length  of 
the  computer  room.  HYPERchannel  adapters  are  tapped  into 


the  cable  and  connected  to  the  applicable  hosts  at 
designated  high  speed  I/O  channel  ports.  User  or  NSC 
software  creates  the  processing  sessions  among  the  hosts. 


B.  UNIQUE  CONFIGURATION  RULES. 

Unique  rules  must  be  applied  during  the  configuration 
process  in  addition  to  the  basic  configuration  rules.  These 
additional  heuristics  apply  to  all  classes  of  available 
options  (ex:  hardware,  software,  uocuinentat  ion ,  etc.).  The 
discussions  which  follow  highlight  these  additional 
considerations. 


1 .  Hardware 

Unique  configuration  heuristics  described  below 
apply  to  hardware  line  items. 

1  .  One  to  four  CPUs  require  one  system  cabinet  and  one 
patch  panel.  Each  CPU  is  ordered  with  two  megabytes 
of  memory  and  is  augmented  with  an  additional  two 
megabytes  of  memory. 

2.  Five  to  eight  CPUs  require  two  system  cabinets,  one 
patch  panel  and  one  expansion  cabinet. 

3.  Nine  to  twelve  CPUs  require  three  system  cabinets, 
two  patch  panels  and  one  expansion  cabinet. 

4.  Larger  configurations  are  built  using  multiples  of 
the  above  three  rules. 

5.  The  FLOATING  POINT  ARITHMETIC  microcode  for  FORTRAN 
processing  is  only  ordered  for  the  two  FMSO  sites 
(Sites  02  and  03). 

6.  An  Operations  and  Service  Processor  (OSP),  with  a 
TANDEM  6530  CRT  attached,  is  ordered  for  each 
conf iguration  of  sixteen  processors  or  portions 
thereof.  The  OSP  must  be  capable  of  using  an 


attached  Centronics  Printer  with  a  printer  interface 
unit  that  permits  switching  among  two  OSPs. 

Each  system  cabinet  requires  three  I/O  power  modules. 

Each  system  cabinet  has  twenty-four  slots.  Each 
controller  (ex:  disk  controller.  LP/CR  controller, 
etc.)  occupies  two  slots. 

One  disk  controller  is  needed  for  every  two  disk 
units  ordered. 

Disk  controllers  must  be  ordered  in  pairs. 

One  disk  patch  panel  is  required  for  every  four  disk 
controllers . 

HYPERchannel  adapters  may  only  be  ordered  by  sites 
designated  as  stock  points.  Available  HYPERchannel 
adapters  are  listed  as  follows: 

a.  A1 40  -  UNIVAC  host  interface. 

b.  A1 50  -  Burroughs  B4800  host  interface.  An 
EBCDIC- to-ASCI I  Conversion  RAM  board  is  ordered 
with  each  A150  adapter  to  facilitate 

TANDEM- to -Burroughs  communications . 

c.  A220  -  IBM  host  interface. 

d.  A400  -  Standard  minicomputer  interface  used  for 
TANDEM  and  PERKIN-ELMER  hosts.  Each  adapter  can 
support  up  to  four  CPUs.  This  is  the  only 
adapter  which  can  exceed  the  one-to-one 
relationship  between  processors  and  adapters. 

e.  A510  -  FIPS  Standard  host  interface. 

HYPERchannel  component  pricing  is  based  upon  the 
assumption  that  the  maximum  number  of  components 
to  achieve  the  maximum  discount  have  already  been 
ordered . 

Each  HYPERchannel  cabinet  will  accommodate  up  to 
three  adapters.  If  TANDEM  and  Burroughs  machines  are 
greater  than  fifty  feet  apart,  a  HYPERchannel  cabinet 
is  needed  for  each  machine.  Coaxial  cables  in 
lengths  from  500  to  5000  feet  may  be  ordered  as 
needed . 

One  patch  panel  cabinet  is  required  for  every  ten 
patch  panels  (any  type). 


6100  Communi 
cabinet  with 
Interface  un 
units.  Each 
accommodate 
size  options 
Subsystem  to 
Each  Subsyst 
cables . 


cations  Subsystem  Base  units  come  with  a 
room  to  accommodate  fifteen  Line 
its  (LIUs)  and  two  Subsystem  Base  Add-on 
Subsystem  Base  Add-on  unit  can 
an  additional  fifteen  LIUs.  Three  cable 
are  available  for  connecting  the  6100 
hosts.  Only  the  60M  option  is  ordered, 
era  Base  unit  and  Add-on  unit  requires  two 


One  TANDEM  HYPERchannel  patch  panel  is  required  for 
every  four  TANDEM  HYPERLINK  controllers. 

One  tape  controller  is  needed  for  every  tape  drive 
unit. 

One  LP/CR  controller  is  required  for  every  line 
printer,  card  reader  or  card  reader  punch  unit. 

All  TANDEM  6530  CRTs  are  ordered  with  the  word 
processing  option. 

One  ASYNC  patch  panel  is  required  for  each  ASYNC 
controller.  An  ASYNC  controller  supports  two 
asynchronous  ports.  At  least  two  ASYNC  controllers 
are  required  for  the  OSP  and  for  redundancy.  Up  to 
two  ASYNC  extension  boards  may  be  added  to  each  ASYNC 
controller,  if  needed. 

One  SYNC  patch  panel  is  required  for  each  BYTE  SYNC 
controller.  SYNC  controllers  are  ordered  in  pairs 
for  redundancy. 

No  SYNC  patch  panels  are  ordered  for  BIT  SYNC 
controllers . 

Communications  patch  panel/ line  monitor  and  ARCLI 
components  are  never  ordered. 

One  FOX  controller  is  required  per  node.  A  single 
FOX  cable  connects  two  nodes. 


2.  Software 


Unique  configuration  heuristics  described  below 

apply  to  software  line  items. 

1.  All  FDC  software  is  purchased  on  a  "per  site"  basis 
(i.e.,  pay  for  the  first  copy  only  at  any  site)  and 
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ordered  on  a  per  processor  basis.  This  requirement 
includes  Batch,  FDC  System  Utilities.  FDC  File 
Security  System,  FDC  TPS  SAS ,  System  Card  Reader 
Support  and  GFE  Terminal  Support  packages. 

TANDEM  software  is  purchased  and  ordered  on  a  "per 
processor"  basis.  This  requirement  includes  GUARDIAN 
OS.  ENCOMPASS,  EXPAND  and  COBOL  packages.  TANDEM 
EXCHANGE  RJE  HASP  software  can  not  be  ordered. 

All  6100  software  is  ordered  on  a  "per  processor" 
basis.  6100  software  versions  must  be  indicated  when 
ordering  since  versions  differ  for  each  site. 

DDN  Service  Interface  software  is  ordered  on  a  "per 
site"  basis.  DDN  Interface  Protocol  software  is 
ordered  on  a  "per  processor"  basis. 

NETEX  software  packages  (feature  numbers  550801 
through  551302)  do  not  have  any  warranty  period.  No 
maintenance  uplift  factor  should  be  applied  to  these 
software  packages.  NETEX  software  ordered  will 
correspond  to  the  NSC  HYPERchannel  adapters  ordered. 
Pricing  for  Burroughs  NETEX  software  is  set  at  the 
maximum  discount  level.  Pricing  for  TANDEM  NETEX 
software  is  set  at  the  third  level.  Pricing  for  all 
other  NETEX  software  products  are  set  at  the  first 
level . 

Software  maintenance  is  computed  on  a  "per  site" 
basis. 

Block  Structured  Language  (PASCAL)  and  FORTRAN  may 
only  be  ordered  for  FMSO  Sites  02  and  03. 

Software  components  which  are  part  of  a  bundled 
package  may  not  be  ordered  separately. 

FMSO  Configuration  Management  and  Query  software  may 
not  be  ordered. 

T-TEXT  software  must  consciously  be  ordered. 


3 .  Manuals  and  Documentation 

Four  sets  of  manuals  are  available  on  the  SPLICE 
contract.  A  predetermined  number  of  manuals  has  been 
identified  for  each  site.  This  predetermined  figure  is  an 


element  of  the  input  configuration  file.  Nevertheless,  the 
actual  number  of  manuals  desired  for  a  site  must  be 
specified  during  configuration  processing.  This  is 
necessary  since  sites  may  not  require  the  predetermined 
quantity  on  the  first  delivery. 

4 .  Training 

Training  was  originally  planned  to  be  ordered  on  a 
group  basis.  Several  individual  courses  may  be  ordered 
either  in  addition  to  or  in  lieu  of  the  group  package.  Such 
an  option  is  supported  for  the  following  courses: 

1 .  Hardware  Overview 

2.  Systems  Resource  Management 

3.  Systems  Tuning  and  XRAY 

4.  Data  Communications 

5.  TANDEM  Applications  Language  (TAL) 

The  addition  of  courses  in  the  future  will  require  the 
modification  of  source  code  and  the  input  cost  data  file. 
This  action  will  only  apply  to  courses  ordered  on  a  unit 
basis . 

5 .  Maintenance 

Maintenance  is  configured  on  a  component  and  monthly 
unit  basis  with  few  exceptions.  If  the  normal  maintenance 
option  is  selected,  preventive  maintenance  and  on-call 
maintenance  options  have  zero  values  for  both  quantity  and 
cost.  If  the  normal  maintenance  is  not  selected,  preventive 


and  on-call  maintenance  options  are  assigned  values 
according  to  the  SPLICE  contract.  Emergency  Per-Call 
maintenance  is  specified  on  an  hourly  basis.  Months  of 
component  maintenance  varies  based  upon  the  warranty  period 
specified  in  the  SPLICE  contract. 

6 .  Other 

Site  Preparation  (initial  site  preparation  and 
installation  survey)  charges  must  be  specified  during  the 
configuration  process  if  desired. 

7 .  Discount  and  Escalation  Rates 

Discount  and  escalation  rates  specified  in  the 
SPLICE  contract  vary  at  predetermined  levels.  These  rates 
vary  based  upon  either  elapsed  time  relative  to  the  contract 
award  date  or  the  quantity  of  line  items  ordered.  The 
discount  and  escalation  rates  applied  to  line  items  during 
the  configuration  process  must  be  explicitly  specified.  The 
rates  entered  are  added  to  a  value  of  one  to  generate  the 
appropriate  multiplication  factor.  Discount  rate  entries 
must  be  entered  as  negative  amounts.  The  multiplication 
factor  is  then  applied  to  a  basic  rate  obtained  from  an 
input  cost  data  file. 

The  heuristics  described  above  apply  to  contract 
line  items  of  a  fifteen  year  life  cycle  ADP  contract.  As 
ADP  technology  is  ever  and  rapidly  changing,  new 
requirements  and  pricing  options  are  negotiated  between  the 
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III.  METHODOLOGY  USED  TO  DEVELOP  THE  SYSTEM 


The  idea  to  pursue  the  development  of  a  micro-computer 
knowledge-based  configuration  system  was  fostered  by  the 
need  to  satisfy  a  group  project  for  a  course  of  instruction 
in  decision  support  systems  ( DSS ) .  A  member  of  the  group 
was  the  former  FMSO  SPLICE  project  manager.  Familiar  with 
the  specifics  of  the  SPLICE  project  and  sensitive  to  the 
problems  experienced  by  the  NAVSUP  SPLICE  project  management 
staff,  he  proposed  the  development  effort.  Development  of 
the  proposed  system  would  satisfy  two  purposes: 

1.  the  need  to  complete  a  group  project  for  the  DSS 
course 

2.  provide  an  automated  micro-computer  knowledge-based 
configuration  system  that  would  help  alleviate  some  of 
the  NAVSUP  SPLICE  project  staff's  work  load. 
Additionally,  the  proposed  system  would  yield  a  more 
accurate,  consistent  and  reliable  configuration 
process . 

The  initial  proposal  was  to  develop  a  knowledge-based 
conf iguration  system.  No  follow  on  development  was  planned 
as  part  of  the  initial  development.  TURBO  Pascal  was 
selected  as  the  programming  language  of  choice  for  the 
following  reasons: 

1.  all  group  members  were  familiar  with  the  language  as  a 
result  of  exposure  from  a  previous  programming  course 

2.  a  structured  programming  language  was  desired  for  the 
development  effort 


3. 


a  language  which  supported  screen-oriented  functions 
and  color  was  desired 


4.  a  language  which  provided  quick  response  and  ease  of 
editing  and  compilation  to  reduce  development  effort 
and  minimize  frustration 

Other  programming  languages  could  have  satisfied  item  2 
through  4  requirements  as  well,  but  TURBO  Pascal  was  chosen 
because  of  the  overriding  requirement  of  item  1  .  This 
requirement  was  felt  to  be  of  paramount  importance  due  to 
the  short  development  time  frame  involved  tor  the  course. 
Group  members  felt  that  familiarity  with  TURBO  Pascal  would 
allow  the  development  effort  to  be  modular  and  completed 
more  rapidly.  The  system  was  completed  and  was  forwarded  to 
N A V SUP  for  evaluation  and  comment. 

A  follow  on  course  of  instruction  dealing  with  software 
engineering  methodologies  was  taken.  A  course  requirement 
called  for  the  development  of  a  project  using  a  structured 
software  engineering  approach  to  software  development. 
Feedback  from  the  NAVSUP  SPLICE  project  staff  was  favorable. 
Comments  received  indicated  a  strong  potential  for  the 
system  to  significantly  improve  the  currently  manual 
conf igurat ion  process.  Follow  on  group  development  of  the 
project  was  initiated.  The  group  discussed  the  merits  of 
such  a  system  and  decided  to  pursue  development  employing 
the  software  engineering  methodology  taught  in  the  course. 
Discussion  for  the  remainder  of  this  chapter  will  focus  on 
the  entire  development  effort  from  commencement  of 


development  to  completion  of  the  integrated  configuration 
management  system. 


A.  PROTOTYPE 


During  the  initial  discussions  and  planning  of  the 
proposed  configuration  system,  the  major  concern  of  group 
members  was  whether  the  vast  number  of  heuristics  involved 
in  the  configuration  process  could  successfully  be  automated 
during  the  time  frame  of  the  course.  In  order  to  meet  the 
completion  deadline,  the  programming  effort  had  to  be 
divided  between  group  members.  The  strategy  employed  was  to 
break  the  system  down  into  five  basic  functional  areas. 

Each  functional  area  would  deal  with  each  set  of  heuristics 
described  in  the  previous  chapter  with  only  minor 
exceptions.  The  general  heuristics  had  to  be  addressed  for 
multiple  areas  and  a  few  of  the  smaller  areas  were 
consolidated  for  development  efficiency. 

The  group  strategy  was  to  start  with  the  first  group  of 
heuristics  (hardware)  and  proceed  in  an  incremental  fashion. 
Development  effort  would  continue  until  either  the  prototype 
system  was  finished  or  until  the  project  was  due.  Since 
there  were  so  many  heuristics  involved  and  no  formal 


structured  design  or  engineering  methodology  was  conducted, 
there  was  little  certainty  of  how  much  of  the  system  would 
be  developed. 


Development  commenced  with  the  general  and  hardware 
heuristics.  Initially,  development  was  extremely  slow  and 
difficult.  General  and  hardware  heuristics  encompass  the 
majority  of  the  heuristics  associated  with  the  configuration 
process  and  are  very  complex.  The  incorporation  of  these 
areas  into  the  system  consumed  the  largest  amount  of  time 
during  the  prototype  development  effort.  Development 
continued  sequentially  by  area  until  all  areas  had  been 
addressed.  As  each  area  was  implemented,  development  became 
easier  as  members  gained  confidence  and  heuristics  became 
less  complicated. 

As  mentioned  in  the  introduction,  the  initial  goal  in 
the  development  effort  was  to  make  the  system  interactive 
and  as  user  friendly  as  possible.  The  screen  oriented 
features  and  functions  of  TURBO  Pascal  proved  to  be  very 
beneficial  in  this  endeavor.  The  use  of  colors  for  screen 
displays  helped  to  differentiate  input  fields  and  prompts. 
The  ability  to  move  the  cursor  anywhere  on  the  screen  and 
control  data  entry,  validation  and  error  messages  formats 
also  aided  in  this  effort. 

Upon  completion  of  the  course,  the  prototype 
configuration  system  was  forwarded  to  the  NAVSUP  SPLICE 
project  staff  for  comments  and  recommendations.  Project 
staff  personnel  expressed  considerable  interest  in  the 
prototype  configuration  system.  While  the  configuration 
system  was  crude,  project  staff  personnel  were  enthusiastic 


about  the  potential  benefits  of  the  system.  Discussions 
concerning  their  desire  to  incorporate  other  project 
management  functions  into  the  system  were  addressed. 


B.  SOFTWARE  ENGINEERING  METHODOLOGY 

The  software  design  course  requirement  to  develop  a 
software  system  using  a  structured  methodology  coincided 
closely  with  the  receipt  of  the  NAVSUP  list  of  comments, 
recommendations  and  additional  features.  Further 
development  of  the  system  was  accomplished  using  a 
programming  team  concept  in  conjunction  with  the  software 
engineering  methodology. 

The  software  engineering  methodology  used  in  the 
development  effort  is  a  three  phased  structured  approach 
encouraged  by  Pressman: 

1.  Planning  -  the  definition,  analysis,  specification, 
estimation  and  review  of  a  process.  Planning  provides 
a  preliminary  indication  of  project  viability  in 
relationship  to  cost  and  schedule  constraints 

2.  Design  -  a  process  of  applying  various  techniques  and 
principles  for  the  purpose  of  defining  a  device,  a 
process,  or  a  system  in  sufficient  detail  to  permit 
its  physical  realization 

3.  Maintenance  -  the  diagnosis  and  correction  of  errors 
(corrective);  the  modification  of  software  to  properly 
interface  with  a  changing  environment  (adaptive);  or 
the  incorporation  of  recommendations  for  newer 
capabilities,  modifications  of  existing  functions,  or 
general  enhancements  following  the  successful 
development  of  software  (perfective) 


Each  phase  of  the  structured  methodology  is  designed  to 
minimize  the  difficulties  associated  with  the  software 
development  effort.  [Ref.  2] 

1 .  Planning 

The  first  step  of  the  software  engineering 
methodology  is  the  planning  process.  During  this  phase  of 
software  development.,  the  group  commenced  the  detailed 
planning  of  the  functions  that  were  to  be  incorporated  into 
the  system.  Initial  discussions  centered  around  the  level 
of  complexity  to  be  attempted  for  the  course  project. 

During  these  discussions,  comments,  recommendations  and 
additional  features  provided  by  the  SPLICE  project  staff 
were  reviewed  and  scoped  for  level  of  complexity. 

Initial  planning  efforts  generated  a  proposal  to 
develop  an  integrated  interactive  and  user-friendly  system 
that  would  be  composed  of  three  major  functional  modules: 

1.  Configuration  module 

2.  Financial  analysis  module 

3.  Configuration  Management  System  module  that  would 
support  report  generation 

Detailed  functions  for  each  module  were  further  specified. 
Individual  member  previous  experience  and  strengths  were 
evaluated.  The  group  was  organized  into  a  programming  team 
concept.  Each  member  was  assigned  tasks  which  best 
corresponded  to  his  level  of  experience  and  knowledge  with 
respect  to  development  tasks. 


Once  the  system  functional  modules  were  identified, 
the  next  step  involved  the  selection  of  software  to 
implement  the  development  effort.  Based  upon  the  effort 
that  had  been  expended  and  the  enthusiasm  exhibited  with  the 
prototype  development,  a  decision  was  made  to  continue 
development  of  the  conf iguration  module  using  TURBO  Pascal. 
SCREEN  SCULPTOR ^  was  selected  for  the  purpose  of  developing 
customized  screens  for  the  configuration  module.  It  also 
employed  a  data  entry  and  validation  feature  that  could  be 
incorporated  into  the  configuration  module  with  little 
effort.  LOTUS  1-2-3  was  selected  as  the  software  package 
for  development  of  the  financial  analysis  package.  This 
selection  was  based  upon  the  fact  that  the  package  was  owned 
by  a  member  of  the  group  who  was  familiar  and  experienced  in 
its  use.  dBASE  III  was  selected  for  development  of  the 
Configuration  Management  module.  Reasons  surrounding  this 
choice  were: 

1.  the  package  was  owned  and  readily  available 

2.  it  could  be  used  as  a  shell  to  call  and  run  other 
software  packages  from  as  well  as  perform  the 
functions  of  configuration  management  using  data  base 
technology 

^SCREEN  SCULPTOR  is  a  software  product  available  from 
The  Software  Bottling  Company  of  New  York.  6600  Long  Island 
Expressway,  Maspeth.  NY  11378  (718)  458-3700.  SCREEN 

SCULPTOR  is  a  programming  productivity  tool  that  enables 
programmers  to  design  and  create  input  screens  in  minutes  lr 
either  BASIC,  IBM  Pascal  or  TURBO  Pascal. 


3. 


FLASH  CODE,  a  commercial  screen  generation  software 
package  was  available  and  could  support  the  generation 
of  customized  screens  and  perform  data  entry 
validation  for  both  dBASE  II  and  dBASE  III,  The  use 
of  such  a  package  would  help  minimize  development 
effort  and  ensure  correct  data  entry 

4.  dBASE  III  could  support  ten  open  files  concurrently 

5.  no  other  data  base  management  software  package  was 
available  that  either  provided  the  capability  to 
customize  screens  to  the  degree  desired  and  support  an 
interface  to  FLASH  CODE 

WORDSTAR  was  selected  as  the  word  processing  software 
package  that  would  be  used  to  enable  the  user  to  view  the 
User's  Manual  on-line.  All  packages  with  the  exception  of 
the  two  screen  generation  development  packages  were 
currently  being  used  by  SPLICE  project  staff  personnel  and 
required  little  investment  in  time  to  learn  new  packages  or 
the  outlay  of  funds. 

Selection  of  the  software  packages  posed  some 
problems  which  had  to  be  overcome  prior  to  further 
development.  LOTUS  1-2-3  and  dBASE  III  both  required 
special  file  formats  and  interfaces  between  input  and  output 
of  each  functional  module.  Special  conversion  procedures 
had  to  be  developed  to  overcome  these  interface 
dif  f iculties . 
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FLASH  CODE  is  a  software  product  available  from  The 
Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY  11378  (718)  458-3700.  FLASH  CODE 

is  a  programming  productivity  tool  that  provides  dBASE  II  or 
dBASE  III  programmers  the  capability  to  use  either  screens 
or  pop-up  windows/help  menus  that  instantaneously  flash  up 
on  the  screen. 


The  Pascal  configurer  module  had  to  be  developed  to 
generate  an  output  file  that  would  allow  the  viewing  and 
processing  of  both  text  and  numerical  fields  when  imported 
into  LOTUS  1-2-3.  The  output  file  from  the  LOTUS  1-2-3 
financial  analysis  module  stripped  off  all  text  and  header 
data  following  financial  verification  and  saved  as  a  ".PRN" 
data  file.  A  dBASE  III  work  data  base  had  to  be  created 
using  a  structure  that  was  compatible  with  the  ".PRN''  data 
file.  This  ".PRN"  file  was  later  appended  to  the  dBASE  III 
work  data  base  and  converted  to  a  dBASE  III  data  entry 
format . 

With  the  module  interfaces  resolved,  each  functional 
module  was  further  developed  and  refined  to  identify  all 
data  elements  involved  with  the  functional  process.  Data 
flow  diagrams  documenting  all  required  data  elements  and 
processes  were  generated  for  each  functional  module.  Two 
data  flow  diagrams  are  provided  in  Appendix  B  to  serve  as 
representative  examples  of  this  process.  Each  data  flow, 
input  file  and  functional  process  was  further  specified  in 
detail  through  the  use  of  various  module  descriptions.  An 
example  of  each  of  these  description  modules  is  provided  in 
Appendix  B.  The  formats  of  each  of  the  descriptions  used  in 
the  definition  process  were  modifications  of  formats 
specified  in  [Ref.  2]  and  [Ref.  3].  A  Bachman  diagram, 
supplied  in  Appendix  B,  was  used  to  document  the  data  base 
relationships  associated  with  the  configuration  management 


module.  The  generation  of  all  functional  module  data 
interdependency  charts  signaled  the  completion  of  the 
planning  phase. 

2 .  Development 

With  the  definition  of  all  data  element 
relationships,  interdependencies  and  functional  interfaces 
defined,  the  group  commenced  the  development  phase  of  the 
methodology.  Using  the  data  flow  diagrams,  data  flow  and 
process  descriptions  generated  during  the  planning  phase, 
each  data  process  or  bubble  was  decomposed  into  more 
detailed  sub-functional  processes. 

Sub-functional  processes  were  developed  by  exploding 
each  bubble  from  the  data  flow  diagram  and  decomposing  the 
process  to  its  lowest  functional  level  through  several 
layers  of  abstraction.  The  lowest  levels  of  abstraction  are 
procedure  oriented  and  are  stated  in  terms  that  can  be 
directly  implemented.  Several  guidelines  for  the  process 
are  involved  and  are  outlined  in  Pressman  [Ref.  2].  The 
overall  objective  of  this  decomposition  process  was  to 
arrive  at  a  description  of  each  functional  process  to  a 
level  that  would  support  modular  development.  Appendix  D 
contains  a  few  structure  charts  which  are  representative 
examples  of  the  decomposition  process. 

The  idea  behind  decomposing  each  process  to  its 
lowest  functional  description  is  to  ensure  that  the  scope  of 


effect^5  of  a  module  is  maintained  within  the  scope  of 
control^  of  that  module  [Ref.  2].  Another  concept  of  the 
engineering  methodology  designed  to  aid  in  the  development 
and  maintenance  of  software  systems  is  that  of  information 
hiding^.  These  concepts  were  applied  to  the  design  phase  of 
development  to  ensure  modularity  of  the  system.  The 
structure  of  the  system  was  designed  in  a  way  that  would 
facilitate  future  maintenance. 

With  all  processes  defined,  team  members  began 
coding  the  various  modules.  Coding  was  accomplished  in  a 
top-down  modular  fashion  to  facilitate  a  phased 
implementation  plan.  As  each  module  was  completed,  it  was 
integrated  into  the  overall  system  and  tested  to  ensure 
accurate  performance.  Coding  continued  until  the  project 
was  due  for  submission.  At  the  end  of  the  course,  the 
configuration  and  financial  analysis  modules  were  complete. 
The  third  module,  the  data  base  configuration  management 
system,  had  a  basic  structure  that  would  support  a  minimal 
number  of  configuration  reports.  This  module  would  be 


Scope  of  effect  of  a  module  is  defined  as  how  other 
modules  are  affected  by  decisions  which  are  made  within  the 
module.  [Ref.  2:  p.  170] 

^Scope  of  control  of  a  module  is  the  number  and  degree 
of  control  which  is  exerted  on  other  modules  by  the 
controlling  module.  [Ref.  2:  p.  170] 
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Information  hiding  is  the  concept  whereby  procedures 
and  data  information  within  a  module  are  invisible  to  other 
modules.  This  concept  helps  achieve  modularity  during 
development.  [Ref.  2:  pp.  156-157] 


finished  as  a  follow  on  project  under  the  maintenance  phase. 
The  system  was  forwarded  to  the  SPLICE  project  staff  for 
evaluation . 

3 .  Maintenance 

The  structured  design  and  development  methodoloqy 
employed  in  the  development  of  the  micro- computer 
knowledge-based  integrated  configuration  management  system 
proved  to  be  very  beneficial.  Completion  of  the  data  base 
configuration  management  module  was  straight  forward  due  to 
this  design  methodology. 

The  data  base  configuration  management  system  was 
completed  as  a  follow  on  project  for  a  course  of  instruction 
in  data  base  design.  Since  a  foundation  already  existed  as 
a  result  of  the  initial  system  development,  continued 
development  fell  into  the  category  of  maintenance.  The 
development  of  the  configuration  management  module  used 
three  methods  of  maintenance.  Each  maintenance  category  is 
defined  briefly  in  the  methodology  introductory  discussion 
near  the  beginning  of  this  chapter. 

Continued  development  of  the  configuration 
management  module  was  undertaken.  Feedback  from  the  SPLICE 
project  staff  highlighted  errors  which  required 
correction  -  corrective  maintenance.  Also,  due  to  contract 
negotiations  and  modifications,  certain  heuristics  required 
modification  -  adaptive  maintenance.  Additionally,  the  data 


base  design  course  highlighted  more  efficient  methods  of 
accomplishing  functional  processes  in  lieu  of  methods  used 
during  the  development  phase  of  the  system  -  adaptive  and 
perfective  maintenance. 

The  maintenance  effort  and  system  enhancements 
proposed  by  the  NAVSUP  SPLICE  project  staff  were  reviewed 
and  evaluated  for  level  of  implementation  difficulty.  Each 
change  was  classified  according  to  the  type  of  maintenance 
involved.  A  development  schedule  was  established  and 
development  effort  continued. 

The  first  maintenance  actions  addressed  were 
corrective  maintenance  issues.  Each  potential  error  was 
evaluated  in  terms  of  its  impact  on  the  basic  system 
structure.  Errors  were  also  evaluated  in  terms  of  whether 
the  condition  fell  within  the  initial  capabilities  designed 
for  the  system.  Some  of  the  potential  errors  were  found  to 
be  outside  the  scope  of  the  initial  design  and  were  not 
attempted.  SPLICE  project  staff  personnel  were  informed  of 
these  conditions  and  were  instructed  on  how  to  deal  with  the 
cond i t ions . 

Changes  to  the  initial  environment  were  addressed 
next.  Contract  negotiations  are  continuing  and  result  in 
contract  modification  requirements.  These  modif ications 
were  evaluated  to  identify  the  degree  of  modification 
required  to  the  basic  system  structure.  While  some 
modification  was  required,  the  majority  of  the  changes 


involved  the  configuration  module.  The  decomposition  of  the 
logical  functions  to  their  lowest  levels  coupled  with  the 

O  Q 

high  degree  of  cohesion  and  low  degree  of  coupling  of  both 
modules  and  data  made  maintenance  almost  effortless. 

The  last  maintenance  area  involved  refining  the 
methods  by  which  tasks  were  performed.  Knowledge  gained 
from  the  data  base  design  course  identified  more  efficient 
means  of  accessing  certain  files.  Also,  certain  initial 
relationships  did  not  follow  the  relational  normal  forms 
associated  with  relational  data  base  design  [Ref.  4]  and 
[Ref.  5].  Thus,  certain  files  had  to  be  restructured. 

Other  changes  involved  eliminating  unnecessary  statements 
and  optimizing  certain  functions,  loops  and  file  accesses. 
Modification  of  certain  file  accesses  resulted  in  the 
reduction  of  response  times  in  some  cases  by  eighty  to 
ninety  percent. 

Completion  of  the  data  base  configuration  management 
module  marked  the  final  development  of  the  micro-computer 
knowledge-based  interactive  configuration  management  system 
for  the  SPLICE  project.  NAVSUP  SPLICE  project  staff 
personnel  have  the  system  and  are  currently  using  the  system 

0 

Cohesion  is  a  measure  of  the  relative  functional 
strength  possessed  by  a  module  (i.e.  a  cohesive  module 
should  only  perform  one  thing  or  function)  [Ref.  2:  p.  158] 

9 

Coupling  is  a  measure  of  the  relative  interdependencies 
between  modules  (i.e.,  the  degree  to  which  other  modules  are 
dependent  upon  interfaces  and  data)  [Ref.  2:  p.  161  ] 


for  initial  configurations.  Once  current  sites  under 
configuration  are  loaded  to  system  data  bases,  sites 
previously  configured  will  be  loaded.  The  SPLICE  project 
manager  now  has  the  capability  to  configure  sites,  perform 
financial  and  "what-if"  analysis  and  generate  a  wide  variety 
of  reports  to  aid  in  the  management  of  the  project.  The 
system  report  generation  facility  also  enables  the  project 
manager  to  track  components  by  serial  number  and  location. 
The  development  of  the  micro-computer  knowledge-based 
interactive  configuration  management  system  has  provided  the 
SPLICE  project  manager  with  the  capability  not  only  to 
evaluate  overall  project  performance,  but  also  to  evaluate 
the  contract  vendor's  performance  with  regard  to  contract 
requirements . 

C.  SUMMARY 

The  development  of  the  micro-computer  knowledge-based 
interactive  configuration  management  system  involved  several 
different  development  methodologies.  The  success  of  its 
development  could  not  have  been  realized  without  the 
inclusion  of  all  methodologies. 

Prototyping,  while  not  a  solution  by  itself,  identified 
several  problems  with  the  original  system  design  and  data 
entry  method.  It  also  highlighted  several  areas  which 
required  modification  to  achieve  the  goal  of  developing  a 
user-friendly  system. 
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The  execution  of  the  software  engineering  methodology 
described  by  Pressman  [Ref.  2]  helped  to  identify  all  of  the 
functional  tasks  for  logical  incorporation  into  the  system. 
The  use  of  the  various  module  descriptions  identified  all  of 
the  essential  data  elements,  flows  and  processes.  The  use 
of  these  descriptions  further  helped  to  minimize  development 
time  and  prevent  needless  rework.  Incremental 
implementation  of  completed  modules  kept  the  development 
effort  on  schedule.  The  use  of  commercially  proven  and 
tested  "off-the-shelf"  packages  further  helped  to  minimize 
the  development  effort. 

The  SPLICE  micro-computer  knowledge-based  interactive 
configuration  management  system  is  an  active  system.  As 
with  any  software  system,  maintenance  must  be  performed  to 
maintain  the  system  current  with  its  operational 
environment.  The  SPLICE  configuration  management  system  is 
no  different.  Due  to  a  changing  environment  and  requests 
for  further  enhancements  to  the  system,  a  backlog  of  changes 
currently  exists. 

Due  to  the  methodologies  used  in  the  design  and 
development  of  the  SPLICE  configuration  management  system, 
the  backlog  and  future  changes  should  be  able  to  be 
incorporated  into  the  system  with  minimal  confusion  or 


effort . 


IV.  SYSTEM  EXECUTION  DIALOGUE 


As  discussed  in  previous  chapters,  the  micro-computer 
knowledge-based  configuration  management  system  is  an 
interactive  and  user-friendly  system.  Additionally,  the 
system  is  an  integrated  system  composed  of  three 
functionally  separate  modules: 

1.  configuration  module  -  developed  using  TURBO  Pascal 

2.  financial  and  "what-if"  analysis  module  -  developed 
using  LOTUS  1-2-3 

3.  configuration  management  and  report  generation 
module  -  developed  using  dBASE  III 

Integration  of  the  system  was  possible  through  dBASE  Ill's 

ability  to  run  other  programs  during  system  execution.  This 

feature  allowed  dBASE  III  to  be  used  as  the  shell  or  driver 

for  the  system. 

Following  discussions  describe  a  typical  system 
execution  dialogue.  All  screen  formats  mentioned  or 
referenced  may  be  found  in  Attachment  2  of  Appendix  A.  The 
system  has  no  on-line  help  facility  other  than  the  on-line 
User's  Manual.  Review  of  the  User's  Manual  may  only  be 
accomplished  from  the  system's  opening  menu  (Screen  1 ). 
Detailed  information  regarding  system  execution  is  addressed 


in  Aopendix 


A. 


A.  SYSTEM  INITIATION 

With  initial  installation  complete  and  the  target 
system's  power  on,  type  the  command  SPLICE  at  the  DOS 
command  prompt  to  initiate  system  execution.  The  first 
screen  viewed  is  the  Function  Selection  Menu  -  Screen  1 . 

From  this  menu,  the  user  may  select  any  one  of  six  possible 
options. 

B.  CONFIGURE  A  SITE 

The  first  function  normally  performed  would  be  to 
configure  a  site  for  SPLICE  installation.  This  action  is 
accomplished  by  selecting  menu  option  1  from  the  Function 
Selection  Menu.  Selection  of  this  option  invokes  the  Pascal 
Configuration  Module.  The  user,  having  accumulated  the 
applicable  data  for  the  site  to  be  configured  and  recorded 
the  information  on  a  copy  of  Attachment  1  of  Appendix  A, 
would  commence  the  configuration  process. 

The  user  would  first  see  a  module  logo  and  version 
screen  (Screen  2)  followed  by  five  data  entry  screens 
(Screens  3  through  8)  and  a  final  output  screen  (Screen  9) 
identifying  the  output  file  name  to  be  imported  into  the 
financial  analysis  module.  The  data  field  sequence  of 
Attachment  1  to  Appendix  A  is  in  the  sequence  of  data 
entries  expected  for  screens  3  through  8, 

Screen  3  is  a  list  of  designated  SPLICE  sites.  Screens 
4  through  8  are  the  applicable  data  entry  screens.  Data 


entry  is  segmented  into  component  and  data  types  (ex: 
discount  and  escalation  rates,  hardware,  software,  etc.). 

The  output  data  file  name  is  presented  as  part  of  the  final 
display  to  the  conf iguration  module  (Screen  8).  The  output 
file  is  formatted  for  data  entry  into  the  financial  analysis 
module.  Following  completion  of  the  configuration  process, 
the  user  is  returned  to  the  Function  Selection  Menu. 

C.  PERFORM  FINANCIAL  ANALYSIS  ON  SITE  DATA 

Financial  analysis  and  delivery  order  preparation  is  the 
next  function  to  be  performed.  Selection  of  menu  option  2 
from  the  Function  Selection  Menu  invokes  the  execution  of 
the  financial  analysis  module  using  the  LOTUS  1-2-3  system. 
The  output  file  previously  generated  from  the  configuration 
module  may  then  be  viewed. 

Several  LOTUS  macros,  described  in  detail  in  Appendix  A, 
enable  the  configuration  module  calculations  and 
computations  to  be  verified.  "What-if"  analysis  may  also  be 
performed  to  evaluate  the  impacts  of  system  costs  relative 
to  options  selected  and/or  modify  a  system  configuration  to 
coincide  with  the  current  funding  environment.  Screen  13  is 
a  partial  example  of  how  the  data  is  presented  in  the 
financial  analysis  module.  Upon  completion  of  the 
configuration  analysis,  the  data  file  is  formatted  for  input 
into  dBASE  III  data  base  files.  Following  financial 


analysis  termination,  the  user  is  returned  to  the  Function 
Selection  Menu  (Screen  1). 


D.  INTERACT  WITH  THE  CONFIGURATION  MANAGEMENT  AND  REPORT 

GENERATION  SUB-SYSTEM 

Execution  and  interaction  with  the  configuration 
management  and  report  generation  sub-system  is  invoked  by 
selecting  menu  option  3  from  the  Function  Selection  Menu 
(Screen  1 ).  The  Process  Selection  Menu  (Screen  14)  is 
displayed  and  reveals  nine  additional  options  from  which  to 
choose . 

1 .  Load  New  Delivery  Order  Data 

The  most  common  option  to  select  will  be  menu 
option  1  -  load  the  formatted  file  from  the  financial 
analysis  module  to  the  various  data  bases.  The  process  is 
menu  driven  requiring  answers  to  a  few  questions  presented 
on  screens  15  and  16.  The  data  loading  process  adds  new 
records  to  three  data  bases.  If  the  input  file  is  very 
large,  the  loading  process  may  be  lengthy. 

Completion  of  loading  data  to  the  three  data  bases 
signals  the  interim  completion  of  the  configuration  process 
for  a  site.  No  further  data  for  the  site  may  be  loaded  to 
the  data  bases  until  the  equipment  is  received  at  the  site. 
From  this  point,  the  user  may  return  to  the  Process 
Selection  Menu  and  obtain  any  of  several  reports  extracted 


in  a  variety  of  formats  or  return  to  the  Function  Selection 
Menu  and  choose  another  processing  option. 


2 .  Load  Serial  Number  and  Manual  Data 

Following  the  receipt  of  ordered  components  at  the 
applicable  site,  the  user  may  load  the  serial  numbers  of  the 
hardware  components  and  the  names  of  the  accompanying 
hardware  and  software  manuals  received.  This  function  is  a 
two  step  process. 

Serial  numbers  may  be  loaded  to  the  serial  number 
data  base  by  selecting  menu  option  6  from  the  Process 
Selection  Menu,  whereby  the  Serial  Number  Maintenance  Menu 
(Screen  32)  is  displayed.  Selection  of  menu  option  1 
results  in  the  presentation  of  the  Serial  Number  Update 
Format  screen  (Screen  33).  To  enter  the  applicable  serial 
numbers,  the  user  must  provide  the  system  with  three  data 
elements  to  load  the  serial  number  data: 

1 .  site  number 

2.  effective  date  of  the  applicable  delivery  order 

3.  feature  number  of  the  component 

Once  all  three  data  elements  have  been  entered,  the  serial 
number  may  then  be  entered.  This  process  must  be  iterated 
for  each  serial  number  to  be  loaded  to  the  data  base.  Since 
neither  serial  number  nor  manual  information  is  available 


during  the  initial  data  load  process,  it  is  necessary  to 
specify  all  three  serial  number  data  elements  to  ensure  data 


and  file  integrity.  Following  entry  of  the  last  serial 
number,  the  user  terminates  the  update  process  by  selecting 
the  exit  (X)  option.  This  returns  the  user  to  the  Serial 
Number  Update  Format  screen  (Screen  33).  The  user  may 
either  review  the  serial  numbers  just  entered  or  return  to 
the  Process  Selection  Menu  to  initiate  the  loading  of  the 
applicable  manual  data. 

Following  entry  of  the  serial  number  data,  the 
applicable  manual  description  data  may  be  loaded  to  the 
Manual  data  base.  This  is  accomplished  by  selecting  menu 
option  5  from  the  Process  Selection  Menu,  whereby  the  Manual 
Maintenance  Menu  (Screen  27)  is  displayed.  To  add  manual 
descriptions  to  the  manual  data  base,  select  menu  option  1 . 
The  Manual  Addition  Format  screen  (Screen  28)  is  displayed. 
To  enter  the  manual  descriptions,  first  enter  the  applicable 
site  number  followed  by  the  associated  feature  number  for 
the  manual  description  to  be  loaded. 

Following  entry  of  the  last  manual  description, 
terminate  the  addition  process  by  selecting  the  exit  (X) 
option.  This  returns  the  user  to  the  Manual  Maintenance 
Format  screen  (Screen  27).  The  user  may  either  review  the 
manual  descriptions  just  entered  or  return  to  the  Process 
Selection  Menu  to  initiate  another  process  selection. 
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3.  Generate  a  Maintenance  Delivery  Order 


At  the  commencement  of  each  fiscal  year,  the  NAVSUP 
SPLICE  project  staff  must  initiate  a  delivery  order  to  cover 
the  maintenance  and  rental  services  for  the  current  fiscal 
year  for  each  configured  SPLICE  site.  To  accomplish  this 
task,  select  menu  option  8  from  the  Process  Selection  Menu 
(Screen  14).  The  Maintenance  Delivery  Order  Generation 
Program  screen  (Screen  66)  is  presented  and  requires  five 
inputs.  First,  the  applicable  site  number  for  which  the 
maintenance  delivery  is  to  be  generated  is  entered.  Then 
four  discount  or  escalation  rates  are  entered.  These  rates 
are  based  upon  pre-determined  terms  negotiated  in  the  SPLICE 
contract.  These  rates  are  based  upon  total  number  of 
components  ordered  and  the  elapsed  time  relative  to  the 
contract  award. 

A  new  formatted  file  (NEWDO.PRN)  is  generated  to  be 
imported  into  the  financial  module  where  computations  and 
calculations  are  verified  in  the  same  manner  discussed  in 
section  C  above.  Once  the  data  has  been  verified 
financially  correct  in  the  financial  module,  the  maintenance 
delivery  order  is  ready  to  be  printed.  Program  execution 
then  automatically  returns  the  user  back  to  the  Process 
Selection  Menu  where  another  process  selection  may  be  made. 


A  1 


Generate  a  Report 


A  variety  of  eight  different  reports  are  available 
from  the  report  generation  sub-system.  Reports  are 
available  for: 

1.  the  overall  project 

2.  a  particular  site 

3.  a  delivery  order  issued  on  a  particular  date 

Within  these  categories,  reports  may  further  be  broken  down 
by : 

a.  equipment  type 

b.  serial  number 

Delivery  order  equipment  type  reports  may  be  obtained  eithe 
with  or  without  unit  price  data  in  the  report. 

The  generation  of  any  one  of  the  eight  available 
reports  is  obtained  by  initially  selecting  menu  option  7 
from  the  Process  Selection  Menu,  whereby  the  Report  by  Type 
Menu  (Screen  36)  is  displayed.  Depending  on  the  type  of 
report  desired,  further  menu  options  are  selected.  Screens 
36  through  65  are  examples  of  the  various  menus  and  report 
formats  that  are  obtainable  from  the  report  generation 
system  but  are  not  discussed  in  detail. 

E.  REVIEW  THE  ON-LINE  USER'S  MANUAL 

The  on-line  User's  Manual  may  be  viewed  any  time  the 
user  is  viewing  the  Function  Selection  Menu  (Screen  1).  As 
stated  before,  no  on-line  help  facility  is  available  during 


functional  module  execution.  The  on-line  User's  Manual  uses 
WORDSTAR  as  the  word  processing  package  to  display  system 
execution  instructions  to  the  user.  As  such,  the  ability  to 
jump  to  a  specific  page  or  process  description  does  not 
exist.  Following  termination,  the  user  is  returned  to  the 
Function  Selection  Menu  (Screen  1). 

F.  TERMINATE  SYSTEM  EXECUTION 

When  all  system  functions  have  been  performed  and  the 
user  desires  to  terminate  system  execution,  two  options  are 
available.  Menu  options  5  and  6  on  the  Function  Selection 
Menu  (Screen  1 )  allow  the  user  to  either  terminate  system 
execution  and  return  to  the  dBASE  III  environment  (dot 
prompt)  for  further  interactive  queries  or  terminate  system 
execution  and  return  to  the  DOS  operating  environment.  The 
most  common  selection  will  likely  be  to  terminate  system 
execution  and  return  to  the  DOS  operating  environment. 


COST  BENEFIT  AND  EFFECTIVENESS 


Prior  to  the  development  of  the  micro-computer 
knowledge-based  integrated  configuration  management  system 
for  the  NAVSUP  SPLICE  project  staff,  the  first  eight  of  a 
possible  sixty-two  initial  site  configurations  were 
processed  in  a  semi-automated  fashion.  While  LOTUS  1-2-3 
was  used  as  the  medium  to  produce  the  final  form  delivery 
order,  a  considerable  amount  of  the  heuristic  processing 
still  was  manual.  The  developed  system  eliminates  all  such 
manual  processing,  except  for  gathering  the  initial  sizing 
study  input  data. 

Within  the  NAVSUP  SPLICE  project  staff,  one  mid-grade 
GS-12  government  employee  is  currently  responsible  for  all 
SPLICE  site  configuration  processing,  project  configuration 
management  and  vendor  contract  performance  monitoring. 
Average  annual  salary  for  this  grade  level  for  a  step  five 
position  is  approximately  thirty-six  thousand  dollars. 

In  the  current  phase  of  the  project  life  cycle,  sites 
are  being  configured  for  their  initial  equipment  and 
associated  software  components.  Existing  sites  with  initial 
configurations  require  maintenance  delivery  orders  generated 
to  support  continuing  maintenance  services  on  an  annual 
basis.  As  mentioned  in  the  introduction ,  errors  discovered 


in  delivery  orders  submitted  to  the  vendor  for  processing 


are  corrected,  with  an  additional  charge  u  levied  upon  the 
government  for  the  additional  service.  Due  to  the  minimum 
number  of  sites  that  have  been  configured  and  are  in 


operational  status,  there  currently  is  little  configuration 
management  being  performed. 

To  evaluate  the  benefit  and  effectiveness  of  the 
developed  system,  certain  (worst  case)  assumptions  are  made: 

1.  based  upon  previous  experience,  each  delivery  order 
supplied  to  the  vendor  will  contain  errors 

2.  the  government  will  incur  a  five  thousand  dollar 
additional  charge  for  vendor  corrections  to  initial 
configuration  delivery  orders  containing  errors 

3.  the  government  will  incur  a  one  thousand  dollar 
additional  charge  for  vendor  corrections  to 
maintenance  delivery  orders  containing  errors  (no 
experience  exists  to  evaluate  the  accuracy  of  this 
assumption  and  is  therefore  an  anticipated  worst  case 
assumption ) 

Since  only  a  few  of  the  designated  sites  are  currently 
operational,  the  one  GS-12  employee  has  managed  to  keep  pace 
with  the  work  load.  Without  the  development  of  the 
micro-computer  knowledge-based  integrated  configuration 
management  system,  this  effort  would  not  be  possible  and 
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Charges  of 
order  to  correct 


up  to  five  thousand  dollars  per  delivery 
existing  errors  have  been  experienced. 


would  most  likely  require  the  hiring  of  another  lower  grade 
employee  on  a  full  time  basis'*^  in  the  future. 

During  the  next  two  calendar  years,  the  remaining 
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initial  site  configurations  are  going  to  be  processed. 
Figures  based  on  the  worst  case  assumptions  stated  above, 
suggest  that  the  developed  system  has  the  potential  to  yield 
savings  of  close  to  two-hundred  and  fifty  thousand  donars 
for  the  initial  configuration  process  alone.  Since  each 
site  must  have  a  maintenance  delivery  order  generated  each 
fiscal  year  to  account  for  increases  or  decreases  in 
maintenance  rates  for  services,  the  potential  exists  to 
realize  additional  savings  of  approximately  sixty  thousand 
dollars  for  each  remaining  year  of  the  project  life  cycle. 

The  SPLICE  contract  contains  predetermined  discount  and 
escalation  rates  which  were  negotiated  and  written  into  the 
contract.  Certain  discounts  depend  upon  the  quantity  of 
components  previously  ordered  and  are  graduated  according  to 
predetermined  procurement  levels.  The  ability  of  the  GS-12 
employee  to  currently  identify  these  discount  levels  is 

^Once  all  SPLICE  sites  have  been  configured  for  initial 
equipment  and  component  installation,  configuration 
management  within  the  project  will  come  to  the  forefront. 

Due  to  the  large  number  and  variety  of  components  that  may 
exist  for  any  site  which  can  have  an  impact  on  the  discounts 
that  are  applicable  to  component,  this  phase  of  contract 
monitoring  and  execution  becomes  critical  in  terms  of  cost 
effectiveness. 

1  2 

Approximately  twenty  sites  are  scheduled  for 
conf iguration  during  CY  1986  and  approximately  thirty  sites 
are  scheduled  for  configuration  during  CY  1987 


accomplished  solely  through  a  manual  process.  Each  delivery 
order  previously  issued  has  to  be  manually  totaled  to  arrive 
at  each  component's  project  procurement  total.  Through  the 
developed  system's  report  generation  facility,  potential 
discounts  can  be  identified  in  a  matter  of  seconds.  The 
potential  savings  that  may  be  realized  in  this  manner  are 
difficult  to  quantify.  I  feel  that  it  is  safe  to  say  that 
over  the  life  cycle  of  the  project,  substantial  savings  as  a 
result  of  this  new  capability  can  result. 

The  developed  system  provides  the  NAVSUP  SPLICE  project 
staff  with  the  ability  to  monitor  the  vendor's  performance 
relative  to  contract  specifications  and  perform 
configuration  management  for  the  overall  project.  While  the 
contract  provided  a  configuration  management  package  line 
item  for  these  services,  development  of  the  system  precludes 
the  need  to  procure  the  option  priced  at  roughly  one-hundred 
thousand  dollars. 

The  developed  system  provides  the  project  staff  with 
extensive  capabilities  needed  to  properly  execute  their 
functions  as  overseers  of  the  contract  and  does  so  in  an 
automated  and  efficient  manner.  These  capabilities  are 
believed  to  be  developed  to  a  level  that  will  allow  the 
existing  project  staff  employee  to  perform  these  functions 


in  roughly  half  the  time  experienced  prior  to  system 
implementation.  This  increased  efficiency  should  realize  a 


minimum  savings  of  approximately  eighteen  thousand  dollars 
each  year  for  the  project  staff  budget. 

As  seen  from  the  above  analysis,  the  development  and 
implementation  of  the  micro-computer  knowledge-based 
integrated  configuration  management  system  for  use  by  the 
NAVSUP  SPLICE  project  staff  provides  a  more  efficient  method 
with  increased  capability  to  effectively  execute  project 
manager  responsibilities  and  monitor  vendor  performance. 
Potential  savings  realized  through  the  use  of  this  system 
will  be  at  least  eighteen  thousand  dollars  annually  for  the 
next  few  years  with  the  potential  to  save  two-hundred  and 
fifty  thousand  in  the  initial  configuration  process  and 
sixty  thousand  dollars  in  annual  maintenance  modifications. 


LIST  OF  REFERENCES 


Naval  Supply  Systems  Command  Letter  UNCLASSIFIED 
0472/DAF  5232  Serial  1485U  to  Naval  Data  Automation 
Command  (NAVDAC  12).  Subject:  Request  for  Life  Cycle 
Management  (LCM)  Milestone  III  Approval  of  the  Stock 


Point  Logistics  Integrated  Communications  Environment 


(SPLICE)  Project  (U),  Enclosure  (2) .  pp.  2-1  to  2-5.  1 
March  1985. 

Pressman,  Roger  S..  Software  Engineering.  McGraw-Hill, 
Inc.  1982.  "  " 

You rdan ,  E..  and  Constantine,  L.,  Structured  Design, 
Prentice-Hall,  1979. 

Kroenke,  David  M.  .  DATABASE  PROCESSING:  Fundamentals, 
Design  Implementation,  2d  ed . ,  pp.  286-330, 

Science  Research  Associates.  Inc.,  1983. 


Kent,  William,  "A  Simple  Guide  to  Five  Normal  Forms  in 
Relational  Database  Theory," 

Communications  of  the  Association  for  Computing 
Machinery ,  Vol.  26,  No.  2,  February  1983,  pp.  120-125 


APPENDIX  A 


THE  NAVAL  SUPPLY  SYSTEMS  COMMAND 
STOCK  POINT  LOGISTICS  INTEGRATED  COMMUNICATIONS  ENVIRONMENT 

(SPLICE) 

SYSTEM  CONFIGURER  AND  CONFIGURATION  MANAGEMENT  SYSTEM 

USER'S  MANUAL 


Document  No.  BBC  -  01 


1  January  1 986 


APPENDIX  A:  USER'S  MANUAL 


Page  3 


List  of  Effective  Pages 


Page  1  through  44 
Page  A1 -45  through  A1-49 
Page  A2-50  through  A2-83 
Page  A3-84 


Original 

Original 

Original 

Original 


APPENDIX  A:  USER'S  MANUAL 


Page  4 


Acknowledgements 


1-2-3  is  a  registered  trademark  of  Lotus  Development 
Corporation . 

dBASE  II  and  dBASE  III  are  registered  trademarks  of 
Ashton-Tate . 

Flash  Code  and  Screen  Sculptor  are  registered  trademarks  of 
The  Software  Bottling  Company  of  New  York. 

Turbo  Pascal  is  a  registered  trademark  of  Borland 
International 

Wordstar  is  a  registered  trademark  of  MicroPro  International 
Corporation . 

Zerodisk  is  a  registered  trademark  of  Quaid  Software 
Limited . 


APPENDIX  A:  USER’S  MANUAL  Page  5 


Recognition 


The  development  of  the  integrated  SPLICE  Conf iguration 
Management  System  involved  several  people.  The  effort 
devoted  to  the  finished  product  was  spread  over  a  nine  month 
period.  The  system  was  also  used  to  satisfy  project 
assignments  in  several  core  courses  leading  to  the  receipt 
of  the  Master  of  Science  degree.  Recognition  is 
acknowledged  for  the  persons  listed  below  for  their 
participation  in  the  completion  of  the  SPLICE  Configuration 
Management  System. 

Major  John  P.  Barrrett,  U.  S.  Marine  Corps  -  test 
plan  generation  and  tester. 

Lieutenant  Commander  Robert  L.  Beard  III,  Supply 
Corps,  U.  S.  Navy  -  Pascal  and  dBASE  III 
programmer,  screen  generation  integrator,  User's 
Manual  co-author. 

Lieutenant  Commander  Winston  H.  Buckley,  Supply 
Corps,  U.  S.  Navy  -  programming  team  librarian, 
documentation  generation. 

Lieutenant  Commander  Edward  J.  Case,  Supply  Corps, 

U.  S.  Navy  -  system  concept,  designer,  and 
integrator,  Pascal,  LOTUS  1-2-3  and  dBASE  III 
programmer,  User's  Manual  co-author. 

Lieutenant  Commander  Gary  R.  Harmeyer,  Nurse 
Corps,  U.  S.  Navy  -  dBASE  III  programming 
assistant,  document  generation. 


Major  David  L.  Horton,  U.  S.  Marine  Corps  - 
initial  data  base  designer,  dBASE  III  programmer. 


APPENDIX  A:  USER'S  MANUAL 


Page  6 


Table  of  Contents 

Record  of  Changes  - 

List  of  Effective  Pages  - 

Acknowledgements  - 

Recognition  - 

Table  of  Contents  - 

Introduction  - 

Background  - 

Why  The  System  Configurer  and  Conf iguration 
Management  System  - 


Input  Data  -  1 

SPLICE  System  Configurer  and  Configuration 

Management  System  Files  -  1 

System  Preparations  -  1 

System  Execution  -  1 

FUNCTION  1 :  Execute  the  Pascal  Configurer  -  1 

FUNCTION  2:  Perform  LOTUS  1-2-3  Financial  or 

"What-If"  Analysis  -  1 

FUNCTION  3:  Execute  the  dBASE  III  Configuration 

Management  System  -  2 

1.  Load  a  new  Deliver  Order  into  the  Configuration 

Management  System  -  2 

2.  Perform  maintenance  on  the  Equipment  File  -  2 

a.  Modify  an  Equipment  File  record  -  2 

b.  Review  an  Equipment  File  record  -  2 

3.  Perform  maintenance  on  the  Equipment 

Description  File  -  2 


59 


APPENDIX  A:  USER'S  MANUAL  Page  7 

a.  Modify  an  Equipment  Description  File  record  -  27 

b.  Review  an  Equipment  Description  File  record  -  28 

4.  Perform  maintenance  on  the  Site  Name  File  -  28 

a.  Modify  a  Site  Name  File  record  -  29 

b.  Review  a  Site  Name  File  record  -  29 

5.  Perform  maintenance  on  the  Manual  File  -  30 

a.  Add  a  new  manual  description  record  -  30 

b.  Update  a  manual  description  record  -  31 

c.  Delete  a  manual  description  record  -  32 

d.  Review  a  manual  description  record  -  32 

6.  Perform  maintenance  on  the  Serial  Number  File  -  33 

a.  Modify  a  Serial  Number  File  record  -  33 

b.  Review  a  Serial  Number  File  record  -  34 

7.  Generate  reports  for  the  Project,  a  specific  site  or 

a  particular  date  -  35 

a.  Overall  Project  reports  -  35 

(1)  Reports  by  Equipment  type  -  36 

(2)  Reports  by  Serial  Number  -  36 

b.  Reports  for  a  Particular  SPLICE  Site  -  37 

(  1  )  Reports  by  Equipment  type  -  37 

(2)  Reports  for  Manuals  -  38 

(3)  Reports  by  Serial  Number  -  38 

c.  Report  for  a  Delivery  Order  issued  on  a 

particular  date  -  39 

( 1 )  Report  by  Equipment  type  with  unit  prices  -  39 


60 


APPENDIX  A:  USER’S  MANUAL  Page  8 

(2)  Report  by  Equipment  type  without  unit  prices  --  40 

(3)  Report  by  Serial  Number  -  41 

8.  Generate  a  Maintenance  Delivery  Order  for  a 

specific  SPLICE  site  -  41 

9.  Generate  Mailing  Labels  for  all  SPLICE  sites  -  42 

FUNCTION  4:  View  the  on-line  User's  Manual  -  43 

System  Output  -  43 

Exception  Reports  -  43 

Limitations  -  43 

Command  Sequence  -  44 

Who  To  Call  -  44 

Attachments : 

1.  Selection  Criteria  for  SPLICE  Configurations  -  A1 -45 

2.  Screens  Formats  - A2-50 

3.  Installation  Procedures  -  -  A3-84 


APPENDIX  A:  USER’S  MANUAL 


Page  9 


1-0  Introduction. 


This  manual  is  designed  to  provide  information  and 
guidance  to  the  SPLICE  integrated  system  user.  The 
integrated  system  components  include:  1  -  the  SPLICE  System 

Configurer,  2  -  the  LOTUS  1-2-3  financial  and  "what-if" 
analysis  system,  3  -  the  dBASE  III  Configuration  Management 
System,  and  4  -  the  Wordstar  on-line  User's  Manual. 


1 . 1  Background. 

The  Naval  Supply  Systems  Command  (NAVSUP)  conceived  and 
developed  the  Stock  Point  Logistics  Integrated 
Communications  Environment  (SPLICE)  project.  The  SPLICE 
project  purpose  is  to: 

a.  Provide  state-of-the-art  local  and  long  haul 
telecommunications  capabilities  to  62  NAVSUP  Stock  Points. 

b.  Provide  interactive  and  distributed  ADP  processing 
capabilities  to  SPLICE  sites. 

c.  Provide  capacity  relief  to  aging  Burroughs  hosts  at 
the  Stock  Points. 

d.  Standardize  and  upgrade,  via  mass  replacement,  the 
myriad  of  minicomputers  existing  at  Stock  Points. 

NAVSUP  initiated  a  competitive  solicitation  for  "fault- 
tolerant"  hardware  and  software  to  achieve  these  goals.  The 
solicitation  was  completed  in  November  1983.  The  winning 
vendor,  Federal  Data  Corporation  (FDC),  proposed  TANDEM 
hardware  and  software  to  meet  most  of  the  solicitation 
processing  and  local  communications  requirements.  FDC 
proposed  Network  System  Corporation  hardware  and  software  to 
meet  the  local  inter-host  communications  requirements. 


1 . 2  Why  The  System  Configurer  and  Configuration  Management 
System. 

Shortly  after  the  SPLICE  contract  award,  hardware  and 
software  components  had  to  be  ordered.  NAVSUP  faced  a 
dilemma.  Only  a  few  SPLICE  personnel  had  worked  closely 
with  the  SPLICE  acquisition  benchmark  and  negotiations. 

These  few  people  were  the  only  personnel  that  had  sufficient 
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knowledge  of  the  systems  to  configure  and  generate  delivery 
orders.  These  personnel  developed  initial  orders  by  hand  to 
meet  the  immediate  need.  Many  minor  errors  were  encountered 
with  these  initial  orders.  FDC  corrected  and  returned  the 
orders  to  the  government  and  received  additional 
compensation  for  their  efforts. 

This  manual  configuration  process  was  later  automated 
using  a  software  product  called  SUPERCALC2.  It  has 
subsequently  transitioned  to  LOTUS  1-2-3.  The  basic  method 
of  developing  these  orders  remained  virtually  manual.  These 
few  SPLICE  personnel,  with  FDC  assistance,  developed  a 
series  of  "rules  of  thumb"  used  to  configure  individual  site 
systems.  Many  of  the  original  SPLICE  group  have  moved  on, 
taking  their  knowledge  of  the  systems  with  them. 

This  SPLICE  Configurer  and  Configuration  Management 
System  software  is  a  knowledge  based  system  designed  to 
codify  these  "rules  of  thumb".  This  integrated  system  will 
enable  NAVSUP  to  develop  and  maintain  SPLICE  configurations 
and  delivery  orders  and  perform  configuration  management  on 
the  project.  Three  software  products  were  created  in  this 
phase  of  development  to: 

a.  Configure  initial  SPLICE  site  systems  by 
answering  a  series  of  questions.  SPLICE.COM  (written  in 
TURBO  Pascal)  produces  structured  delivery  orders  that  must 
be  imported  into  LOTUS  1-2-3.  LOTUS  1-2-3  performs 
financial  review  and  analysis  before  loading  the  dBASE  III 
Configuration  Management  data  bases. 

b.  Restructure  the  SPLICE.COM  output  file  into 

LOTUS  1-2-3  format.  A  series  of  macros  assist  in  the 
regeneration  of  the  delivery  order  into  LOTUS  standard 
formula  format.  Following  the  conversion,  three  options 
exist:  1  -  print  the  delivery  orders,  2  -  prepare  archival 

files,  or  3  -  prepare  the  output  file  needed  for  the 
dBASE  III  Configuration  Management  system. 

c.  Restructure  the  LOTUS  1-2-3  output  file  into 
dBASE  III  format.  dBASE  III  command  language  modules  import 
and  convert  the  LOTUS  output  file  into  dBASE  III  format. 

They  also  either  generate  or  update  the  three  dBASE  III 
Configuration  Management  data  bases.  This  allows  the  user 
to  generate  selected  configuration  management  reports  from 
the  three  data  bases.  MAINTDO.PRG,  a  dBASE  III  module, 
generates  maintenance  delivery  orders  from  the  configuration 
management  data  bases.  These  maintenance  delivery  orders 
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must  be  imported  into  LOTUS  1-2-3  for  final  financial  review 
and  analysis. 

2 . 0  Input  Data. 

The  following  paragraphs  describe  the  integrated  system 
data  input  requirements.  The  following  discussion  describes 
the  files  required  to  execute  the  system  and  the  associated 
screen  formats. 


2 . 1  SPLICE  System  Configurer  and  Configuration  Management 
System  Files. 

The  SPLICE  System  Configurer  and  Configuration 
Management  System  can  only  be  run  on  a  hard  disk  system, 
with  the  following  minimum  files  (refer  to  Attachment  3  for 
system  installation  procedures): 


GROUP  ^  FILE- IDs  (SPLICE  Configurer) 


a.  COSTS. IN 

b. 

CONFIG. SIT 

c.  SPLICE.COM 

a . 

SPLICE. SCR 

GROUP  2  FILE- IDs  (LOTUS  1-2-3  Financial  Analysis) 

e.  123. EXE  (Associated  files  for  LOTUS 

version  1A  not  shown  but  are 
also  required . ) 

f.  SKELETON. WKS  g.  MAINTORD . WKS 


GROUP  3  FILE- IDs  (dBASE  III  Configuration  Management  System) 

h.  DBASE.COM  (Associated  files  for  dBASE  III 

version  1.1  not  shown  but  are 


also 

required. ) 

i.  CONFIG. DBF 

3  • 

CONFIG. NDX 

k  . 

CONFMOD. 

PRG 

1.  CONFREV . PRG 

m . 

CONFUPD. PRG 

n . 

DATERPTS 

.PRG 

o.  DELAY. PRG 

D  . 

DESCRIP. DBF 

q . 

DESCRIP . 

DBT 
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r . 

DESCRIP. NDX 

S.  DESCRIPT. SCR 

t . 

DESPMOD . PRG 

u . 

DESPPREV . PRG 

v.  DESPPUPD. PRG 

w . 

EFEAT.NDX 

x . 

EQPDTNPC . PRG 

y.  EQPDTPRC . PRG 

z  . 

EQPPJRPT . PRG 

aa . 

EQPSTRPT. PRG 

bb.  EQUIP. DBF 

cc . 

EQUIPCMD. PRG 

dd . 

EQUIPDAT . NDX 

ee.  EQUIPPRJ . NDX 

f  f . 

EQUIPREV. PRG 

gg- 

EQUIPREV . SCR 

hh.  EQUIPSD . NDX 

i  i  . 

EQUIPS IT .NDX 

j  j  • 

EQUIPUPD. PRG 

kk.  EQUIPUPD. SCR 

11. 

FLASHUP.COM 

mm . 

MAINMENU. PRG 

nn.  MAINMENU. SCR 

oo . 

MAINTDO. PRG 

pp. 

MAINTDO . SCR 

qq.  MANUAL. DBF 

rr . 

MANUALS . SCR 

ss . 

MANULADD. PRG 

tt.  MANULCMD. PRG 

uu . 

MANULDEL . PRG 

vv . 

MANULREV. PRG 

ww.  MANULSIT . NDX 

XX  . 

MANULUPD . PRG 

>1 

MKLABELS . PRG 

zz.  MKLABELS. SCR 

aaa . 

MNLSTRPT. PRG 

bbb. 

NEWDOADD. PRG 

ccc .  NEWDOCMD . PRG 

ddd . 

NEWDOCVT. PRG 

eee . 

NEWDOCVT . SCR 

fff.  PROJRPTS . PRG 

ggg. 

REPORCMD. PRG 

hhh . 

REPORTS. SCR 

lii.  SELECTOR. PRG 

3  j  j  - 

SELECTOR. SCR 

kkk . 

SERIALNO. DBF 

111.  SERIALNO. SCR 

mmm . 

SERNOBLD. PRG 

nnn . 

SERNOCMD. PRG 

ooo .  SERNODAT . NDX 

ppp. 

SERNOFEA . NDX 

qqq  • 

SERNOPRJ .NDX 

rrr.  SERNOREV . PRG 

SSS  . 

SERNOSIT.NDX 

ttt . 

SERNOUPD . PRG 

uuu.  SITENAME . SCR 

vvv . 

SITERPTS . PRG 

WWW  . 

SNODTRPT. PRG 

xxx.  SNOPJRPT. PRG 

yyy  • 

SNOSTRPT. PRG 

zzz . 

SPLICE . BAT 

aaaa .  SPLICE. WIN 

bbbb . 

TED . DBF 

cccc.  NEWJOIN . DBF 


Several  of  the  dBASE  III  command  language  modules 
require  considerable  time  to  execute.  An  IBM-PC/XT 
operating  with  a  clock  speed  of  6  MHz  or  greater  or 
IBM-PC/AT  provides  better  performance. 
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Three  additional  TURBO  Pascal  source  code  files  are 
provided  since  the  Configurer  system  was  developed  in 
Borland  International's  TURBO  Pascal  and  Software  Bottling 
Company's  SCREEN  SCULPTOR': 


GROUP  1  FILE- IDs 

a.  SPLICE. PAS  b.  SPLICE1  . PAS  c.  SPLICE2 . PAS 


GROUP  1  files  must  reside  on  a  subdirectory  named 
\TURBO.  GROUP  2files  must  reside  on  a  subdirectory  named 
\LOTUS.  Group  3  files  must  reside  on  a  subdirectory  named 
\DBASEIII.  The  file  USERS. MAN  must  be  present  on  a 
subdirectory  named  \ WORDSTAR  if  the  User's  Manual  is  viewed 
on-line  (Function  Selection  Menu  option  4).  A  version  of 
WORDSTAR  must  also  exist  on  the  subdirectory. 

Software  Bottling  Company  product  FLASH  CODE^  must  be 
purchased  to  run  the  dBASE  III  Configuration  Management 
System.  All  command  language  modules  in  the  dBASE  III 
Configuration  Management  System  use  a  memory  resident 
program  FLASHUP.COM.  FLASHUP3  gives  dBASE  III  the  extra 
capabilities  of  instantly  flashing  up  screens  and  instantly 
popping  up  windows.  Load  this  command  module  into  the 
computer  memory  before  running  dBASE.  The  SPLICE.BAT 


1  SCREEN  SCULPTOR  is  a  software  product  available  from  The 
Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY  11378  (718)  458-3700.  SCREEN 
SCULPTOR  is  a  programming  productivity  tool  that  enables 
programmers  to  design  and  create  input  screens  in  minutes  in 
either  BASIC,  IBM  Pascal  or  TURBO  Pascal. 

2  FLASH  CODE  is  a  software  product  available  from  The 
Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY  11378  (718)  458-3700.  FLASH  CODE 
is  a  programming  productivity  tool  that  provides  dBASE  II  or 
dBASE  III  programmers  the  capability  to  use  either  screens 
or  pop-up  windows/help  menus  that  instantaneously  flash  up 
on  the  screen. 

3  FLASHUP  is  a  memory  resident  program  supplied  with  FLASH 
CODE  that  enables  dBASE  II  or  dBASE  III  programmers  to  use 
screens  and  pop-up  windows/help  screens  which  instantly 
flash  up  on  the  screen  rather  than  the  dBASE  painting 
method . 
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command  batch  file  automatically  accomplishes  this  process. 
FLASHUP  is  licensed  to  individuals  for  use  along  with  either 
dBASE  II  or  dBASE  III  programs  and  may  be  moved  from  one 
computer  to  another.  Any  number  of  people  may  use  FLASHUP, 
providing  there  is  nc  possibility  of  using  it  concurrently 
in  two  or  more  locations. 

Both  Software  Bottling  Company  products,  SCREEN 
SCULPTOR  and  FLASH  CODE  must  be  purchased  to  perform  system 
maintenance  on  system  screens  and  windows. 


2 . 2  System  Preparations. 

Fill  out  a  copy  of  Attachment  1  before  executing  the 
SPLICE  Pascal  Configurer  and  Conf iguration  Management  System 
modules.  Having  this  information  before  beginning  a  session 
will  greatly  facilitate  system  use. 

Turn  on  the  IBM-PC  AT  target  system  and  the  1 32  column 
printer's  power.  Ensure  that  the  minimum  required  software 
listed  above  is  loaded  on  the  active  hard  disk 
subdirectories  specified.  Make  subdirectory  \DBASEIII  the 
default  directory. 


2 . 3  System  Execution. 

Execute  the  SPLICE  Pascal  Configurer  and  Configuration 
Management  System  by  entering  the  command  SPLICE  at  the 
system  prompt  (ex:  OSPLICE). 

Several  copyright  notices  will  appear  on  the  screen 
after  a  few  seconds  delay  for  system  startup.  The  processes 
described  below  are  then  available:  (See  Attachment  2  tor 

screen  formats ) . 

Screen  1 :  The  Function  Selection  Menu  is  the  opening 
screen  for  the  integrated  system.  Six  options  exist  from 
which  to  choose.  Option  1  permits  the  configuration  of  a 
SPLICE  site.  Option  2  uses  LOTUS  1-2-3  to  perform  financial 
or  "what-if"  analysis.  Option  3  opens  the  dBASE  III  SPLICE 
Configuration  Management  System.  Option  4  reviews  the 
User's  Manual  on-line.  Option  5  returns  the  system  to  the 
dBASE  III  system  prompt.  Option  6  returns  the  system  to  the 
DOS  prompt.  The  following  discussion  is  limited  to  options 
1  through  4.  Only  entries  in  the  range  1  -  6  are  valid. 

The  default  value  is  1. 
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2.3.1  FUNCTION  1 :  Execute  the  Pascal  Configurer 

Select  option  1  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  configure  a  SPLICE  site.  If  the 
Function  Selection  Menu  is  not  displayed,  select  the 
"Return  to  "  option  of  the  current  menu  until  the  Function 
Selection  Menu  appears.  If  a  process  is  active,  select  the 
option  that  terminates  the  process.  Once  a  menu  appears, 
select  the  "Return  to  "  option  of  the  current  menu  until  the 
Function  Selection  Menu  appears.  Select  option  1  when  the 
Function  Selection  Menu  appears.  The  first  screen  of  the 
SPLICE  Pascal  Configurer  (Screen  2)  appears. 

Screen  2:  The  opening  screen  of  the  Pascal  configurer 
module  requires  no  input. 

Screen  3 :  A  list  of  sites  which  may  be  configured 
appears.  Insert  an  integer  value  between  01  and  58  to 
select  a  currently  designated  site.  Site  numbers  59  through 
62  are  reserved  for  future  designation.  Site  Number  23 
(NAS  Oceana)  is  deactivated  and  no  longer  is  a  designated 
SPLICE  site. 

Screen  4:  Enter  the  discount  and  escalation  rates, 
output  file  name,  number  of  months  of  maintenance,  and 
effective  delivery  order  date.  Data  input  ranges  apply  as 
described  below: 

a.  FDC  SNA  Interface  Discount  Rate:  0.00  -  9.99 

b.  Non-LCN  Purchase  Discount  Rate:  0.00  -  9.99 

c.  LCN  Purchase  Discount  Rate:  0.00  -  9.99 

d.  SPLICENet  Software  Maintenance  Discount 

Rate:  0.00  -  9.99 

e.  SPLICENet  Software  Purchase  Discount 

Rate:  0.00  -  9.99 

f.  Emergency  Maintenance  Escalation  Rate:  0.0  -  9.9 

g.  LCN  Hardware  Maintenance  Escalation 

Rate:  0.000  -  9.999 

h.  LCN  Software  Maintenance  Escalation 

Rate:  0.000  -  9.999 
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i . 

j  • 

k . 

l. 


Installation  Escalation  Rate:  0.000  - 
Training  Escalation  Rate:  0.00  -  9.99 
Documentation  Escalation  Rate:  0.00  - 
Maintenance  Escalation  Rate:  0.000  - 


9.999 


i 

i 

i 


(-9.99) 


I 


9.999 


m.  Output  file  name:  any  8  alphanumeric  characters 


n.  Hardware  Maintenance  Months:  0-12 

o.  Effective  Date:  01/01/84  -  12/31/99 


On  entry  of  the  effective  date,  confirm  the  input 
values  by  entering  a  "Y"  to  the  prompt  "  Do  you  accept  the 
input  values  thus  far?  Yes  or  No  ".  The  Default  value  is 
"N". 

Screen  5:  Enter  the  hardware  quantities  suggested  by 
the  Navy  Fleet  Material  Support  Office  Sizing  Study,  as 
transcribed  to  Attachment  1 .  The  following  data  input 
ranges  apply: 

a.  Processors:  0  -  256 

b.  Centronics  Printers:  0-12 


c.  TANDEM  CRTs:  0  -  999 

d.  128  MB  Disks:  0  -  128,  in  EVEN  quantities 

e.  240  MB  Disks:  0  -  128,  in  EVEN  quantities 

f.  540  MB  Disks:  0  -  128,  in  EVEN  quantities 

g.  Non-6100  ASYNC  Controllers:  0-64.  There  should 
be  at  least  two  in  the  initial  order  for  each  OSP; 
subsequent  quantities  are  at  the  user's  discretion. 


h.  Non-6100  ASYNC  Extension  Boards:  0-2 

i.  Bit  SYNC  Lines:  0  -  128 

j.  Byte  SYNC  Lines:  0-128 


-128  ; 

I 


I 


k. 


Tri-Density  Tape  Drives:  0 
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l.  Reader/Punches:  0-12 

m.  Card  Readers:  0-12 

n.  1000  LPM  Printers:  0-16 

o.  600  LPM  Printers:  0-16 

p.  LCN  Coaxial  Cables  (Trunks):  0-2.  Input  is  only 
allowed  for  sites  designated  in  file  CONFIG. SIT  as 
Stock  Points  ( S  )  . 

q.  6100  Line  Interface  Units  (LIUs):  0  -  256 

r.  LCN  Interface  Adapters  (multiple  entries):  0  -  256. 
Input  is  only  allowed  for  sites  designated  in  file 
CONFIG. SIT  as  Stock  Points  (S). 

s.  Cabinets:  0-16  for  computed;  0-8  for  extra. 

The  system  computes  the  required  numbers  for  the  4 
types  of  cabinets  and  presents  this  in  the  COMP 
field.  Additional  quantities  may  be  entered  in  the 
XTRA  field  within  the  allowed  ranges  specified 
above  as  desired. 

t.  Max  Distance  Between  Computers:  A  -  F.  Input  is 
only  allowed  for  sites  designated  in  file 
CONFIG. SIT  as  Stock  Points  (S). 

On  completion  of  the  Max  Distance  input  value,  confirm 
the  input  values  by  entering  a  "Y"  to  the  prompt  "  Do  you 
accept  the  input  values  thus  far?  Yes  or  No  ".  The 

default  value  is  "N". 

Screen  6:  Select  various  software  packages  and  the 
number  of  both  NETEX  and  SPLICENet  software  maintenance 
months  desired.  The  system  only  accepts  "Y"  or  "N"  entries 
for  software  packages.  The  system  only  accepts  integers  in 
the  range  0-12  for  software  maintenance  months  entries. 
Network  Maintenance  Facility  (NMF)  software  is  divided  into 
either  a  group  package  or  individual  packages.  If  the  user 
selects  the  group  package,  none  of  the  individual  packages 
can  be  selected.  The  cursor  moves  directly  to  the  NETEX 
Maintenance  Months  field.  If  the  NMF  group  package  field 
response  is  "N" ,  the  user  may  select  each  individual  package 
if  desired.  On  completion  of  the  entry  for  the  number  of 
months  of  SPLICENet  software  maintenance  desired,  confirm 
the  input  values  by  entering  a  "Y"  to  the  prompt  "  Do  you 
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accept  the  input  values  thus  far?  Yes  or  No  " . 

The  default  value  is  "N" . 

Screen  7 ;  Enter  the  quantities  for  system 
documentation,  training  group  and  courses,  and  months  of 
Emergency  Per-Call  Maintenance.  Indicate  whether  to  include 
Site  Preparation  charges. 

The  allowable  range  for  documentation  and  training 
courses  is  0  -  20.  The  allowable  range  for  Training  Groups 
is  1  -  5.  The  allowable  range  for  months  of  Emergency 
Maintenance  is  0  -  12.  The  allowable  inputs  to  Site  Prep 
charges  are  "Y"  or  "N".  On  completion  of  the  Site  Prep 
charges,  confirm  the  input  values  by  entering  a  "Y"  to  the 
prompt  "  Do  you  accept  the  input  values  thus  far?  Yes  or 
No  ".  The  default  value  is  "N" . 

Screen  8;  The  configurer  software  module  sign-off 
screen  requires  no  input.  The  system  displays  the  output 
file  name  used  for  this  configuration  run  in  the  sign-off 
message. 

The  system  returns  to  the  Function  Selection  Menu 
(Screen  1)  to  await  the  next  selection. 


2.3.2  FUNCTION  2:  Perforin  LOTUS  1-2-3  Financial  or 

"What-If"  Analysis 

Discussion  of  the  following  actions  is  predicated  on 
the  user  having  a  well  developed  understanding  of  the 
LOTUS  1-2-3  system.  Terminate  the  system  and  review  any  of 
several  available  books  detailing  the  system's  capabilities 
and  operations  before  continuing  if  you  are  not  familiar 
with  that  software  product. 

Select  option  2  to  begin  LOTUS  1-2-3  financial  or 
"what-if"  analysis  processing.  Insert  a  LOTUS  system  disk 
in  drive  A  (or  have  a  product  such  as  ZERODISK4  installed) 
to  start  the  LOTUS  system.  If  the  Function  Selection  Menu 
is  not  displayed,  select  the  "Return  to  "  option  of  the 
current  menu  until  the  Function  Selection  Menu  appears.  If 


4  ZERODISK  is  a  software  product  available  from  Quaid 
Software  Limited,  45  Charles  Street  East,  Third  Floor, 
Toronto,  Ontario  M4Y  1S2  (416)  961-8243.  It  is  a  product 

that  enables  users  to  run  software  applications  without  the 
need  to  place  master  disks  in  the  "A"  drive  required  by  some 
programs  such  as  dBASE  III,  LOTUS  1-2-3,  etc. 
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a  process  is  active,  select  the  option  that  terminates  the 
process.  Once  a  menu  appears,  select  the  "Return  to  " 
option  of  the  current  menu  until  the  Function  Selection  Menu 
appears.  Insert  a  LOTUS  system  disk  in  drive  A  and  then 
select  option  2  when  the  Function  Selection  Menu  appears. 

Following  a  message  concerning  changing  the  LOTUS 
active  file  directory,  the  first  screen  of  the  LOTUS  1-2-3 
system  (Screen  9  -  See  Attachment  2  for  screen  formats) 
appears.  The  system  experiences  a  few  seconds  delay  for 
system  startup. 

NOTE:  a  backslash  (\)  followed  by  a  single  letter  indicates 
a  LOTUS  macro.  Execute  a  macro  by  simultaneously 
depressing  the  ALT  and  letter  keys.  A  slash  (/)  followed  by 
a  letter  indicates  a  LOTUS  command.  [CR]  denotes  the 
striking  of  the  RETURN  or  ENTER  key. 

Screen  9:  The  opening  menu  of  the  LOTUS  1-2-3  system 
requires  no  input.  Processing  continues  with  the  depression 
of  any  key. 

Screen  10:  The  empty  LOTUS  1 -2-3  spreadsheet  screen 
appears.  Change  the  default  subdirectory  in  LOTUS  if  it  is 
not  subdirectory  C:\DBASEIII.  Enter  LOTUS  command 
/ WGDDC : \DBASEII I [ CR ]Q  to  change  the  default  subdirectory. 
Enter  LOTUS  command  /FR  to  retrieve  a  file.  Screen  11 
appears.  Use  the  arrow  keys  to  point  to  SKELETON  or 
MAINTORD  or  type  either  SKELETON  or  MAINTORD.  SKELETON. WKS 
is  the  formatting  file  for  outputs  from  the  Pascal 
Configurer  module.  This  file  includes  the  macros  developed 
for  recalculation  analysis  beginning  in  cell  A200.  MAINTORD 
is  the  formatting  file  for  outputs  from  the  Maintenance 
Delivery  Order  Generation  module  executed  from  within  the 
dBASE  Configuration  Management  System.  This  file  includes 
macros  similar  to  those  beginning  in  cell  A200  of  file 
SKELETON . WKS .  If  the  user  selects  the  SKELETON  worksheet, 
Screen  12  -  the  formatted  spreadsheet,  appears. 

Screen  1 3 :  Enter  the  LOTUS  command  /FIN{file  name}  or 
the  macro  \F{file  name}  to  begin  the  importation  process. 
Enter  an  output  file  name  generated  by  the  Pascal  Configurer 
module.  It  may  either  be  typed  in  without  the  ".PRN" 
extension  or  selected  by  pointing  to  the  file  name  with  the 
arrow  keys. 

No  further  screens  for  the  LOTUS  processes  are  shown 
here.  All  screens  appear  the  same,  showing  different  views 
of  the  memory  resident  spreadsheet. 
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The  following  LOTUS  macros  in  file  SKELETON. WKS  have 
been  provided  for  easier  processing: 

a.  \C  -  Changes  column  numeric  entries  to  currency. 

Execute  the  macro  anywhere  in  the  worksheet. 

b.  \D  -  Deletes  indicated  rows.  Place  the  cursor  at 

the  first  row  to  delete  before  entering  \D. 
Point  to  the  last  row  to  delete  using  the 
arrow  keys. 

c.  \E  -  Deletes  all  ".PRN"  files.  Execute  the  macro 

anywhere  in  the  worksheet. 

d.  \F  -  Imports  a  ".PRN"  file  at  the  cursor  position. 

Execute  the  macro  anywhere  in  the  worksheet. 

e.  \I  -  Recalculates  the  Total  Component  Installation 

Price  for  a  row.  Place  the  cursor  in  the  top 
row  cell  of  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).  Copy 
subsequent  entries  using  /C  versus  using  \I. 

f.  \M  -  Recalculates  the  Total  Component  Purchase 

Price  for  a  row.  Place  the  cursor  in  the  top 
row  cell  of  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).  Copy 
subsequent  entries  using  /C  versus  using  \M. 

g.  \N  -  Recalculates  the  Total  Hardware  Component 

Maintenance  Price  for  a  row.  Place  the  cursor 
in  the  top  row  cell  of  the  newly  created 
temporary  column  (e.g.,  hardware,  software, 
etc.).  Copy  subsequent  entries  using  /C 
versus  using  \N. 

h.  \0  -  Recalculates  the  Total  Software  Component 

Maintenance  Price  for  a  row.  Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (e.g.,  hardware,  software, 
etc. ) .  Copy  subsequent  entries  using  /C 
versus  using  \0. 

i.  \P  -  Prepares  the  worksheet  for  output  to  the  dBASE 

process.  Execute  the  macro  anywhere  in  the 
worksheet . 
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j.  \R  -  Names  a  macro.  Execute  the  macro  in  the  cell 

of  the  new  macro  identifier. 

k .  \S  -  Sum  indicated  columns.  Execute  the  macro  from 

the  cell  where  the  total  figure  is  desired. 

Use  arrow  keys,  followed  by  the  RETURN  or 
ENTER  key,  to  indicate  the  beginning  and  end 
of  the  summary  area. 

l.  \T  -  Recalculates  the  Component  Downtime  hourly 

rate.  Place  the  cursor  in  the  top  row  cell  in 
the  newly  created  temporary  column  (e.g., 
hardware,  software,  etc.).  Copy  subsequent 
entries  using  /C  versus  using  \T. 

m.  \ U  -  Recalculates  the  Component  System  Downtime 

hourly  rate.  Place  the  cursor  in  the  top  row 
cell  in  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).  Copy 
subsequent  entries  using  /C  versus  using  \U. 

Perform  formula  recalculation  one  column  at  a  time 
starting  from  the  left.  Insert  a  new  column  to  the  left  of 
the  Total  Purchase  Price,  Total  Component  Maintenance,  Total 
Installation  Price,  and  two  Downtime  Credit  columns. 

Execute  the  \M,  \N,  \0,  \I,  \T,  and  \U  macros  described 
above  in  the  first  entry  of  each  applicable  column.  Copy 
the  resulting  formula  down  the  remainder  of  the  column.  Sum 
the  column  using  the  \S  macro.  When  results  are 
satisfactory,  move  (/M)  the  new  column  over  the  old  column 
and  delete  (/WDC)  the  now  blank  column.  Re-sum  (no  macro 
provided)  the  summary  financial  data  at  the  bottom  of  the 
spreadsheet . 

Perform  "what-if"  analysis,  using  the  macros  provided, 
following  formula  recalculation.  Exercise  extreme  care  when 
changing  component  quantities!  If  component  quantity 
changes  are  made,  print  and  review  the  proposed  changes. 
After  reviewing  the  changes,  reverify  the  accuracy  of  the 
changes  using  the  Configurer  system.  Use  the  Configurer  to 
ensure  that  all  configuration  rules  are  properly  followed. 

Save  an  archival  copy  of  the  worksheet  with  the 
/FS{file  name}  command.  Print  a  delivery  order  with  the  /PP 
command.  Strip  off  the  worksheet  headers,  non-hardware  and 
software  line  items,  section  cost  totals,  summary  notes  and 
cost  information  with  the  \D  macro.  Print  the  remaining 
contents  of  the  spreadsheet  (less  macros)  with  the  /PF{file 
name}  command  or  \P  macro. 
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Terminate  1-2-3  by  entering  the  LOTUS  command  /QY[CR] . 
The  system  returns  to  the  Function  Selection  Menu  (Screen  1) 
to  await  the  next  selection. 

The  following  processing  is  accomplished  if  the  file 
MAINTORD  is  selected.  The  system  automatically  loads  the 
NEWDO.PRN  file  created  from  the  dBASE  III  Maintenance 
Delivery  Order  Generation  module.  The  cursor  moves  to  the 
appropriate  field  to  accept  entry  of  the  effective  date. 

Use  the  macros  stored  at  location  A200  to  verify  and 
complete  the  maintenance  delivery  order  following  entry  of 
the  effective  date. 

The  following  LOTUS  macros  on  MAINTORD. WKS  have  been 
provided  for  easier  processing: 

a.  \C  -  Copies  header  information. 

b.  \D  -  Deletes  the  first  column. 

c.  \0  -  Automatically  imports  the  maintenance  delivery 

order  called  NEWDO.PRN. 

d.  \I  -  Adds  rows  for  software  headers. 

e.  \N  -  Recalculates  the  Total  Hardware  Component 

Maintenance  Price  for  a  row.  Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (i.e.,  hardware  and 
software).  Copy  subsequent  entries  using  /C 
versus  using  \N. 

f.  \ 0  —  Recalculates  the  Total  Software  Component 

Maintenance  Price  for  a  row.  Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (i.e.,  hardware  and  software, 
etc.).  Copy  subsequent  entries  using  /C 
versus  using  \0. 

g.  \R  -  Names  a  macro.  Execute  the  macro  in  the  cell 

of  the  new  macro  identifier. 

h.  \S  -  Sum  indicated  columns.  Execute  the  r  -ro  from 

the  cell  where  the  total  figure  is  de.  j.red. 

Use  arrow  keys,  followed  by  the  RETURN  or 
ENTER  key,  to  indicate  the  beginning  and  end 
of  the  summary  area. 
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Locate  the  first  software  item  in  the  body  of  the 
spreadsheet  (feature  number  between  510101  and  660101, 

860101  or  860201).  Move  the  cursor  to  the  corresponding 
location  in  column  "A".  Execute  the  \I  macro  to  insert 
blank  rows  at  the  location.  When  complete,  move  the  cursor 
down  4  rows  and  execute  the  / C  LOTUS  command  to  copy  headers 
to  the  beginning  of  the  next  section. 

Verify  the  calculated  Component  Factored  Maintenance 
cell  for  each  data  entry.  Move  the  cursor  to  the  first 
entry  in  the  hardware  section  of  the  Component  Factored 
Maint  column  and  execute  the  command  /WIC[CR].  This  will 
add  an  additional  column  to  the  spreadsheet.  Execute  macro 
\ N  to  automatically  recalculate  the  maintenance  amount  at 
the  first  hardware  component  cell.  Execute  the  LOTUS 
command  /C [ CR ]{ DOWN }.( DOWN  to  the  end  of  the  hardware 
column} [CR],  This  copies  the  formula  in  the  first  cell  to 
all  following  cells.  Use  the  \S  macro  to  sum  the  column  and 
copy  the  same  formula  to  the  next  cell  to  the  right  with  the 
/C  LOTUS  command. 

Comparison  of  these  two  sums  may  show  minor  rounding 
differences.  Use  the  /M  command  to  move  the  desired  cells 
one  column  to  the  right  to  retain  the  LOTUS  figure.  Use  the 
same  procedure  in  the  software  section,  substituting  the  \0 
macro  for  the  \N  macro.  Delete  the  unnecessary  column  with 
the  / WDC  command  following  the  movement  of  the  data  to  the 
newly  created  column. 

When  validation  of  all  entries  is  complete,  manually 
enter  financial  appropriation  data  and  end  of  delivery  order 
comments.  Manually  recalculate  a  new  System  Downtime  Credit 
Factor  value  using  data  supplied  on  the  spreadsheet  plus  the 
installation  cost.  Save  or  print  the  new  delivery  order,  as 
desired . 

Terminate  LOTUS  1-2-3  by  executing  the  LOTUS  command 
/ QY ( CR ] .  The  system  returns  to  the  Function  Selection  Menu 
(Screen  1 )  to  await  the  next  selection. 


2.3.3  FUNCTION  3:  Execute  the  dBASE  III  Configuration 

Management  System 

Select  menu  option  3  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  invoke  the  dBASE  III  Configuration 
Management  System.  If  the  Function  Selection  Menu  is  not 
displayed,  select  l he  "Return  to  "  option  of  the  current 
menu  until  the  Function  Selection  Menu  appears.  If  a 
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process  is  active,  select  the  option  that  terminates  the 
process.  Once  a  menu  appears,  select  the  "Return  to  " 
option  of  the  current  menu  until  the  Function  Selection  Menu 
appears.  Next  select  menu  option  3.  The  first  screen  of 
the  dBASE  III  Configuration  Management  System  (the  Process 
Selection  Menu  -  Screen  14)  appears. 

Screen  1 4 :  Ten  menu  options  (0-9)  exist.  Processing 
continues  based  on  the  selection  entered.  Option  0  returns 
the  system  to  the  Function  Selection  Menu  (Screen  1 ).  The 
remaining  options  are  discussed  in  order. 


2. 3. 3.1  Load  a  new  Delivery  Order  into  the  Configuration 
Management  System. 

Select  menu  option  1  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  load  a  new  delivery  order  generated  by 
the  SPLICE  Configurer.  The  Delivery  Order  Load  Menu 
(Screen  15)  appears.  Next  select  menu  option  1  to  commence 
the  loading  process  for  the  new  delivery  order. 

Screen  1 5 :  Select  one  of  two  options:  1  -  load  a  new 
delivery  order  or  2  -  return  to  the  Process  Selection  Menu 
( Screen  14). 

Screen  1 6 :  Enter  the  LOTUS  output  file  name.  A  file 
name  may  be  from  one  to  eight  alphanumeric  characters  long. 
The  default  file  name  supplied  by  the  system  is 
"SPLICE . PRN" .  The  system  automatically  provides  the 
extension.  If  the  file  name  entered  cannot  be  found  on  the 
default  subdirectory,  re-enter  a  valid  name.  An  error 
message  appears  on  the  status  line  if  the  file  name  entered 
cannot  be  found.  After  three  invalid  entries,  either  exit 
the  program  or  supply  another  file  name.  When  a  valid  file 
name  is  supplied,  enter  the  effective  date  for  the  delivery 
order . 

Valid  dates  range  from  840101  to  991231  (the  system 
currently  will  not  accept  leap  year  dates  -  29  February). 

The  actual  site  number  from  the  input  delivery  order  appears 
following  the  entry  of  a  valid  date.  The  user  may  change 
the  site  number  to  any  site  number  within  the  range  01  -  58 

or  accept  the  site  number  displayed.  Following  the  entry  of 
a  valid  site  number,  accept  all  data  entries  before  the  load 
process  begins.  If  the  response  is  "N" ,  all  data  entries 
are  erased  and  the  input  process  is  repeated.  If  the 
response  is  "Y",  indicate  input  file  disposition:  1  - 
or  2  -  erase. 


retain 
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The  update  process  commences  following  this  response. 
The  load  process  may  take  up  to  10  minutes.  This  is 
primarily  due  to  the  building  of  serial  number  records  for 
each  individual  component  on  the  delivery  order.  BE 
PATIENT.  During  the  load  process,  status  messages  appear  to 
kt- p  the  user  appraised  of  the  transactions  as  they  occur. 
When  the  load  process  finishes,  indicate  whether  to  load 
another  delivery  order.  If  the  response  is  "Y",  the  process 
starts  with  a  new  Screen  16.  If  the  response  is  "N",  the 
system  returns  to  the  Delivery  Order  Load  Menu  (Screen  15). 
Select  menu  option  2  to  return  to  the  Process  Selection  Menu 
(Screen  14)  to  await  the  next  selection. 


2. 3. 3. 2  Perform  maintenance  on  the  Equipment  File. 

Select  menu  option  2  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Equipment  File.  Following  the  selection  of  option  2,  the 
Equipment  Maintenance  Selection  Menu  (Screen  17)  appears. 

Screen  1 7 :  The  Equipment  Maintenance  Selection  Menu 
enables  the  user  to  review  or  modify  selected  entries  in  the 
Equipment  File.  Select  one  of  three  options:  1  -  update 
price  information;  2  -  review  equipment  file  entries;  or 
3  -  return  to  the  Process  Selection  Menu  (Screen  14). 


2. 3. 3. 2.1  Modify  an  Equipment  File  Record. 

Select  menu  option  1  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  modify  an  Equipment  File 
record.  Following  the  selection  of  option  1,  the  Equipment 
Update  Format  screen  (Screen  18)  appears. 

Screen  1 8 :  Enter  the  site  number  to  update,  an  integer 
from  01  to  58. 

Select  one  of  three  options:  1  -  update  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the 
Equipment  File;  or  3  -  start  at  the  end  of  the  Equipment 
File  viewing  records  until  the  desired  record  appears. 

Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.  Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.  Enter  the  site  number  to  modify  records  for  a 
specific  site. 
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Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  "00  "  (two  zeroes  followed  by  four  spaces). 

Status  messages  appear  at  the  bottom  of  the  screen  when 
reaching  the  first  and  last  records.  This  action  only 
occurs  if  a  specific  site  is  selected  (a  site  selection 
other  than  "00"  or  "99"). 

The  only  authorized  changes  in  this  screen  are  the 
three  price  fields.  An  introductory  window,  explaining  how 
to  terminate  the  modification  of  a  record  field,  appears 
following  the  entry  of  a  feature  number.  Terminate  the 
introductory  information  window  by  striking  the  RETURN  or 
ENTER  key.  Changes  to  fields  are  possible  one  field  at  a 
time.  If  changes  are  made  to  any  field,  either  accept  or 
reject  the  changes.  Choose  either:  1  -  access  the  next 
record;  2  -  access  the  previous  record;  or  3  -  exit  the 
update  process.  On  exiting,  the  system  returns  to  the 
Equipment  Maintenance  Selection  Menu  (Screen  17). 

2 . 3 . 3 . 2 . 2  Review  an  Equipment  File  Record. 

Select  menu  option  2  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  review  an  Equipment  File 
record.  Following  the  entry  of  option  2,  the  Equipment 
Review  Format  screen  (Screen  19)  appears. 


Screen 
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File  viewing  records  until  the  desired  record  appears. 

Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.  Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.  Enter  the  site  number  to  review  records  for  a 
specific  site. 

Following  the  entry  of  specified  site  number,  two 
options  exist:  1  -  select  a  speci fic  six  digit  feature 

number  or  2  -  start  with  the  first  feature  number  by 
entering  "00  "  (two  zeroes  followed  by  four  spaces). 

Status  messages  appear  at  the  bottom  of  the  screen  when 
reaching  the  first  and  last  records.  This  action  only 
occurs  if  a  specific  site  is  selected  (a  site  selection 
other  than  "00"  or  "99").  ^ 
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No  changes  are  allowed  in  this  screen.  Choose  either: 
1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  review  process.  On  exiting,  the  system 
returns  to  the  Equipment  Maintenance  Selection  Menu 
( Screen  17). 


2. 3. 3. 3  Perform  Maintenance  on  the  Equipment  Description 
File. 

Select  menu  option  3  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Equipment  Description  File.  Following  the  selection  of 
option  3,  the  Equipment  Description  Maintenance  Menu 
(Screen  20)  appears. 

Screen  20:  The  Equipment  Description  Maintenance  Menu 
enables  the  user  to  review  or  modify  selected  entries  in  the 
Equipment  Description  File.  Select  one  of  three  options: 

1  -  modify  Equipment  Description  File  entries;  2  -  review 

Equipment  Description  File  entries;  or  3  -  return  to  the 
Process  Selection  Menu  (Screen  14). 


2. 3. 3. 3.1  Modify  an  Equipment  Description  File  Record. 

Select  menu  option  1  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  modify  an  Equipment 
Description  File  record.  After  the  selection  of  option  1, 
the  Description  Update  Format  screen  (Screen  21)  appears. 

Screen  21 :  Enter:  1  -  "00  "  (two  zeroes  followed  by 

four  spaces)  to  start  the  update  process  at  the  top  of  the 
file;  2  -  "99  "  (two  nines  followed  by  four  spaces)  to 

start  at  the  update  process  the  end  of  the  file;  or  3  -  a 
six  digit  feature  number.  Valid  feature  numbers  range  from 
0001  01  to  994001  . 

An  introductory  window,  explaining  how  to  terminate  the 
modification  of  a  record  field,  appears  following  the  entry 
of  a  feature  number.  Terminate  the  introductory  information 
window  by  striking  the  RETURN  or  ENTER  key.  Changes  to 
fields  are  possible  one  field  at  a  time. 

All  data  entries  in  this  screen  may  be  modified.  Once 
the  Base  Maintenance  Price  field  is  either  modified  or 
passed,  the  user  may  update  the  memo  field.  If  the  response 
is  "Y",  a  window  of  instructions  (Screen  22)  appears.  The 
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instructions  describe  how  to  make  changes  to  the  memo  field 
If  the  response  is  "N",  processing  continues. 

Accept  or  reject  changes  made  to  any  field.  Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.  On  exiting,  the 
system  returns  to  the  Equipment  Maintenance  Selection  Menu 
( Screen  17). 


2. 3. 3. 3. 2  Review  an  Equipment  Description  File  Record. 

Select  menu  option  2  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  review  an  Equipment 
Description  File  record.  After  the  selection  of  option  2, 
the  Description  Review  Format  screen  (Screen  23)  appears. 

Screen  23:  Enter  either:  1  -  "00  "  (two  zeroes 

followed  by  four  spaces)  to  start  the  update  process  at  the 
top  of  the  file;  2  -  "99  "  (two  nines  followed  by  four 

spaces)  to  start  at  the  update  process  the  end  of  the  file; 
or  3  -  a  six  digit  feature  number.  Valid  feature  numbers 
range  from  000101  to  994001. 

No  changes  are  allowed  in  this  screen.  Choose  either: 
1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  review  process.  On  exiting,  the  system 
returns  to  the  Equipment  Maintenance  Selection  Menu 
( Screen  17). 


2. 3. 3. 4  Perforin  Maintenance  on  the  Site  Name  File. 

Select  menu  option  4  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Site  Name  File.  Following  the  selection  of  option  4,  the 
Site  Name  Maintenance  Menu  (Screen  24)  appears. 

Screen  24:  The  Site  Name  Maintenance  Menu  enables  the 
user  to  review  or  modify  selected  entries  in  the  Site  Name 
File.  Select  one  of  three  options:  1  -  modify  Site  Name 

File  entries;  2  -  review  Site  Name  File  entries;  or 
3  -  return  to  the  Process  Selection  Menu  (Screen  14). 
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2. 3. 3. 4.1  Modify  a  Site  Name  File  Record. 


Select  menu  option  1  (from  the  Site  Name  Maintenance 
Menu  -  Screen  24)  to  modify  a  Site  Name  File  record.  After 
the  selection  of  option  1 ,  the  Site  Address  Data  Update 
Format  screen  (Screen  25)  appears. 


Screen  25:  Enter  the  site  number  to  update,  an  integer 
from  01  to  58. 


Select  one  of  three  options:  1  -  update  a  specific- 
site's  records;  or  2  -  start  at  the  beginning  of  the  Site 
Name  File;  or  3  -  start  at  the  end  of  the  Site  Name  File 
viewing  records  until  the  desired  record  appears.  Enter 
"00"  to  start  viewing  records  at  the  beginning  of  the  file. 
Enter  "99"  to  start  viewing  records  at  the  end  of  the  file. 
Enter  the  site  number  to  modify  records  for  a  specific  site. 


All  data  entries,  except  site  number  and  type  activity, 
may  be  changed.  An  introductory  window,  explaining  how  to 
terminate  the  modification  of  a  record  field,  appears 
following  the  entry  of  a  feature  number.  Terminate  the 
introductory  information  window  by  striking  the  RETURN  or 
ENTER  key.  Changes  to  fields  are  possible  one  field  at  a 
time.  Accept  or  reject  changes  made  to  any  field.  Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.  On  exitinc,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
(  Screen  24 ) . 


2. 3. 3. 4. 2  Review  a  Site  Name  File  Record. 

Select  menu  option  2  (from  the  Site  Name  Maintenance 
Menu  -  Screen  24)  to  review  a  Site  Name  File  record. 
Following  the  selection  of  option  2,  the  Site  Address  Data 
Review  Format  screen  (Screen  26)  appears. 

Screen  26 :  Enter  the  site  number  to  review,  an  integer 
from  01  to  58. 

Select  one  of  three  options:  1  -  review  a  specific 

site's  records;  or  2  -  start  at  the  beginning  of  the  Site 
Name  File;  or  3  -  start  at  the  end  of  the  Site  Name  File 
viewing  records  until  the  desired  record  appears.  Enter 
"00"  to  start  viewing  records  at  the  beginning  of  the  file. 
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Enter  "99"  to  start  viewing  records  at  the  end  of  the  file. 
Enter  the  site  number  to  review  records  for  a  specific  site. 

No  data  entries  may  be  changed  in  this  screen.  Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.  On  exiting,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
( Screen  24 ) . 


2. 3. 3. 5  Perform  Maintenance  on  the  Manual  File. 

Select  menu  option  5  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Manual  File.  Following  the  selection  of  option  5,  the 
Manual  Maintenance  Menu  (Screen  27)  appears. 

Screen  27 :  The  Manual  Maintenance  Menu  enables  the 
user  to  either  access,  modify,  add  or  delete  selected 
entries  in  the  Manual  File.  Select  one  of  five  options:  1  - 
add  a  new  Manual  Description  entry;  2  -  update  Manual 
Description  entries;  3  -  delete  a  Manual  Description  entry; 

4  -  review  Manual  Description  entries;  or  5  -  return  to  the 
Process  Selection  Menu  (Screen  14). 


2. 3. 3. 5.1  Add  a  new  Manual  Description  entry. 

Manual  description  entries  may  only  be  added  for  the 
site  selected.  The  site  number  and  feature  number  must  be 
known  to  successfully  execute  this  process.  This 
restriction  applies  even  if  a  manual  description  already 
exists  for  a  site  and  feature  number.  Be  sure  you  want  to 
add  a  new  manual  and  not  just  update  an  existing  one! 

Delete  an  old  manual  if  it  is  no  longer  applicable. 

Screen  28:  Enter  a  valid  site  number,  an  integer  from 
01  to  58.  The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  number  selected. 

Enter  the  feature  number  for  the  manual  description  to 
add.  Valid  feature  numbers  range  from  000101  to  994001. 

The  system  validates  the  feature  number  to  ensure  that  the 
feature  number  exists  on  the  file.  Once  a  valid  feature 
number  is  entered,  the  CLIN  and  description  data  appear. 

The  cursor  moves  to  the  Manual  Description  field  where  the 
new  manual  description  is  entered.  Indicate  whether  the  new 
description  is  acceptable.  If  the  response  is  "N",  either 
choose  to  continue  or  exit.  If  the  response  is  "y",  the  new 
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description  entered  is  accepted.  Choose  either  to  continue 
or  exit.  On  exiting,  the  system  returns  to  the  Manual 
Maintenance  Menu  (Screen  27). 


2. 3. 3. 5.2  Update  a  Manual  Description  entry. 

Select  menu  option  2  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  modify  a  Manual  File  record.  After  the 
selection  of  option  2,  the  Manual  Update  Format  screen 
(Screen  29)  appears. 

Screen  29:  Enter  a  valid  site  number,  an  integer  from 
01  to  58.  The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  update  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Manual 
File;  or  3  -  start  at  the  end  of  the  Manual  File  viewing 
records  until  the  desired  record  appears.  Enter  "00"  to 
start  viewing  records  at  the  beginning  of  the  file.  Enter 
"99"  to  start  viewing  records  at  the  end  of  the  file.  Enter 
the  site  number  to  modify  records  for  a  specific  site. 

Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  a  feature  number  of  "00  "  (two  zeroes  followed 

by  four  spaces).  Status  messages  appear  at  the  bottom  of 
the  screen  when  reaching  the  first  and  last  records.  This 
action  only  occurs  if  a  specific  site  is  selected  (a  site 
selection  other  than  "00"  or  "99"). 

The  only  field  allowed  to  be  modified  during  this 
process  is  the  Manual  Description  field.  An  introductory 
window,  explaining  how  to  terminate  the  modification  of  a 
record  field,  appears  following  the  entry  of  a  feature 
number.  Terminate  the  introductory  information  window  by 
striking  the  RETURN  or  ENTER  key. 

Changes  to  fields  are  possible  one  field  at  a  time. 
Accept  or  reject  changes  made  to  any  field.  Choose  either: 

1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  update  process.  On  exiting,  the  system 
returns  to  the  Manual  Maintenance  Menu  (Screen  27). 
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2. 3. 3. 5. 3  Delete  a  Manual  Description  entry. 

Select  menu  option  3  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  delete  a  Manual  Description  entry. 

After  the  selection  of  option  3,  the  Manual  Deletion  Format 
screen  (Screen  30)  appears. 

Screen  30 :  Enter  a  valid  site  number,  an  integer  from 
01  to  58.  The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Enter  the  feature  number  for  the  description  to  delete. 
Valid  feature  numbers  range  from  000101  to  994001.  When  the 
description  appears,  verify  the  deletion  decision.  If  the 
response  is  "N",  the  Manual  Description  is  left  intact.  If 
the  response  is  "Y" ,  the  Manual  Description  is  deleted. 
Choose  either  to  continue  or  exit.  On  exiting,  the  system 
returns  to  the  Manual  Maintenance  Menu  (Screen  27). 


2. 3. 3. 5. 4  Review  a  Manual  Description  entry. 

Select  menu  option  4  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  review  a  Manual  Description  entry. 

After  the  selection  of  option  4,  the  Manual  Review  Format 
screen  (Screen  31)  appears. 

Screen  31 :  Enter  a  site  number,  an  integer  from  01  to 
58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  review  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Manual 
File;  or  3  -  start  at  the  end  of  the  Manual  File  viewing 
records  until  the  desired  record  appears.  Enter  "00"  to 
start  viewing  records  at  the  beginning  of  the  file.  Enter 
"99"  to  start  viewing  records  at  the  end  of  the  file.  Enter 
the  site  number  to  review  records  for  a  specific  site. 

No  data  entries  may  be  changed  in  this  screen.  Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.  On  exiting,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
( Screen  24 ) . 
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2.3. 3. 6  Perform  Maintenance  on  the  Serial  Number  File. 

Select  menu  option  6  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Serial  Number  File.  Following  the  selection  of  option  6, 
the  Serial  Number  Maintenance  Menu  (Screen  32)  appears. 

Three  data  elements  must  be  known  to  perform  an  update 
on  a  Serial  Number  File  record.  The  three  data  elements 
are:  1  -  site  number,  2  -  effective  delivery  order  date  and 
3  -  feature  number  of  the  serial  number  to  be  modified.  If 
all  three  or  any  of  these  data  elements  are  not  known,  run  a 
date  level  report  to  obtain  the  three  elements  (refer  to  the 
section  Generate  REPORTS  for  the  Project,  a  Site  or 
Equipment  for  specific  procedures). 


2. 3. 3. 6.1  Modify  a  Serial  Number  File  record. 

Select  menu  option  1  (from  the  Serial  Number 
Maintenance  Selection  Menu  -  Screen  32)  to  modify  a  Serial 
Number  File  record.  After  the  selection  of  option  1 ,  the 
Serial  Number  Update  Format  screen  (Screen  33)  appears. 

Screen  33:  Enter  a  valid  site  number,  an  integer  from 
01  to  58.  The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Following  the  site  number  entry,  enter  an  effective 
delivery  order  date.  Three  attempts  are  allowed  to  specify 
an  effective  delivery  order  date.  Screen  34  appears  if  on 
the  third  attempt  a  valid  effective  delivery  order  date  is 
not  entered.  Select  one  of  two  choices:  1  -  continue  with 
the  update  process  or  2  -  exit  the  update  process  and  obtain 
the  three  elements  (refer  to  the  section  Generate  REPORTS 
for  the  Project,  a  Site  or  Equipment  for  specific 
procedures ) . 

Once  a  delivery  order  date  is  entered,  enter  a  valid 
feature  number.  Valid  feature  numbers  range  from  000101  to 
994001 .  Screen  34  appears  if  all  three  data  elements  do  not 
match  any  record  data  fields  for  the  site  selected.  The 
same  two  choices  described  in  the  paragraph  above  may  be 
chosen.  When  a  valid  feature  number  is  entered  and  all 
three  data  elements  match,  a  short  introductory  window 
explaining  how  to  terminate  the  modification  of  a  record 
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field  appears.  Terminate  the  introductory  information 
window  by  striking  the  RETURN  or  ENTER  key. 

Following  termination  of  the  introductory  information 
screen,  the  Serial  Number  File  record  selected  appears.  The 
only  field  that  may  be  modified  is  the  serial  number  field. 
Accept  or  reject  changes  made  to  the  serial  number  field. 

If  the  response  is  "Y",  the  change  is  made  to  the  database. 
If  the  response  is  "N" ,  the  change  is  not  accepted.  Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.  On  exiting,  the 
system  returns  to  the  Serial  Number  Maintenance  Menu 
( Screen  32 ) . 


2. 3. 3. 6. 2  Review  a  Serial  Number  File  record. 

Select  menu  option  2  (from  the  Serial  Number 
Maintenance  Selection  Menu  -  Screen  32)  to  review  a  Serial 
Number  File  record.  After  the  selection  of  option  2,  the 
Serial  Number  Update  Format  screen  (Screen  35)  appears. 

Screen  35:  Enter  a  valid  site  number,  an  integer  from 
01  to  58.  The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  review  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Serial 
Number  File;  or  3  -  start  at  the  end  of  the  Serial  Number 
File  viewing  records  until  the  desired  record  appears. 

Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.  Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.  Enter  the  site  number  to  review  records  for  a 
specific  site. 

Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  "00  "  (two  zeroes  followed  by  four  spaces). 

Valid  feature  numbers  range  from  000101  to  994001.  Status 
messages  appear  at  the  bottom  of  the  screen  when  reaching 
the  first  and  last  records.  This  action  only  occurs  if  a 
specific  site  is  selected  (a  site  selection  other  than  "00" 
or  "99" ) . 

No  data  fields  are  allowed  to  be  modified  during  the 
review  process.  Choose  either:  1  -  access  the  next  record; 

2  -  access  the  previous  record;  or  3  -  exit  the  review 
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process.  On  exiting,  the  system  returns  to  the  Serial 
Number  Maintenance  Menu  (Screen  32). 


2. 3. 3. 7  Generate  REPORTS  for  the  Project,  a  Specific  Site 
or  a  Particular  Date. 

Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  an  overall  project  report,  a 
report  for  a  particular  site  or  a  report  for  a  delivery 
order  issued  on  a  particular  site.  Following  the  selection 
of  option  7,  the  Report  by  Type  Menu  (Screen  36)  appears. 

Screen  36:  Various  levels  of  reports  which  may  be 
selected  appear.  Select  one  of  three  options:  1  -  obtain  a 
project  level  report;  2  -  obtain  a  site  specific  report; 

3  -  obtain  a  delivery  order  specific  report;  or  4  -  return 
to  the  Process  Selection  Menu  (Screen  14). 

Screen  37:  When  obtaining  any  of  the  various  types  of 
reports,  two  options  exist:  1  -  obtain  a  printed  report  or 
2  -  view  the  data  on  screen.  Screen  37  always  appears  if  a 
printed  report  is  selected.  Ensure:  1  -  the  power  to  the 
printer  is  on;  2  -  sufficient  paper  is  loaded  in  the  printer 
and  3  -  the  leading  edge  of  the  paper  is  positioned  with  the 
printer's  typing  line  alignment  mark.  After  all  three 
conditions  are  satisfied,  commence  printing  by  the  striking 
the  RETURN  or  ENTER  key.  Once  printing  commences,  the 
appropriate  screen  appears  and  status  messages  detailing  the 
progress  of  the  report  are  displayed. 


2. 3. 3. 7.1  Obtain  an  Overall  Project  Level  Report. 

Select  menu  option  7  (from  the  Process  Selection  Menu  - 
Screen  14)  to  obtain  an  overall  project  level  report  for  a 
site.  The  Report  by  Type  Menu  (Screen  36)  appears.  From 
the  Report  by  Type  Menu,  select  option  1.  After  the 
selection  of  option  1,  the  Project  Level  Reports  Menu 
(Screen  38)  appears. 

Screen  38:  Select  one  of  three  options:  1  -  obtain  a 

report  by  equipment  type;  2  -  obtain  a  report  by  serial 
numbers;  or  3  -  return  to  the  Report  by  Type  Menu 
( Screen  36 ) . 
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2. 3. 3. 7.1 .1 


Obtain  an  Overall  Project  Report 
Equipment  Type. 


Select  menu  option  1  (from  the  Project  Level  Reports 
Menu  -  Screen  38)  to  obtain  an  overall  project  report  broken 
down  by  type  of  equipment.  After  the  selection  of  option  1, 
the  Equipment  Project  Level  Report  screen  (Screen  39) 
appears . 


Screen  39:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "n" .  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.  Screen  40  is  a  sample 
report  format. 


Screen  40;  All  equipment  is  totaled  by  feature  number 
and  presented.  The  quantity  for  each  feature  number 
displayed  represents  the  total  quantity  ordered  for  all 
sites  in  the  Equipment  database.  After  each  screen,  choose 
either:  1  -  continue  the  report  or  2  -  exit  the  report 
process.  On  exiting,  the  system  returns  to  the  Project 
Level  Reports  Menu  (Screen  38). 


Select  menu  option  2  (from  the  Project  Level  Reports 
Menu  -  Screen  38)  to  obtain  an  overall  project  report  broken 
down  by  serial  number.  After  the  selection  of  option  2,  the 
Equipment  Serial  Number  Project  Level  Report  screen 
(Screen  41)  appears. 


Screen  41 :  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "n".  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.  Screen  42  is  a  sample 
report  format. 


Screen  42 :  All  serial  numbers  for  each  component  at 
all  sites  are  presented.  This  will  probably  be  a  LARGE 
report!  Entries  include:  Site  Number,  CLIN,  Feature  Number, 
Description,  Effective  Delivery  Order  Date,  total  component 
quantity  on  the  delivery  order,  specific  component  number 
(e.g.  1  of  9),  and  the  applicable  serial  number.  After  each 
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screen,  choose  either:  1  -  continue  the  report  or  2  -  exit 
the  report  process.  On  exiting,  the  system  returns  to  the 
Project  Level  Reports  Menu  (Screen  38). 


2. 3. 3. 7. 2  Obtain  a  Report  for  a  Particular  Site. 

Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  a  report  for  a  particular  site 
The  Report  by  Type  Menu  (Screen  36)  appears.  Select  menu 
option  2  from  the  Report  by  Type  Menu.  After  the  selection 
of  option  2,  the  Site  Level  Reports  Menu  (Screen  43) 


Screen  43:  Select  one  of  four  options:  1  -  obtain  a 
report  by  equipment  type;  2  -  obtain  a  report  of  site 
manuals;  3  -  obtain  a  report  by  serial  number;  or  4  -  return 
to  the  Site  Level  Reports  Menu  (Screen  43). 


2. 3. 3. 7. 2.1  Obtain  a  Site  Specific  Report  by  Equipment 
Type. 

Select  menu  option  1  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  report  broken 
down  by  equipment  type.  After  the  selection  of  option  1, 
the  Equipment  Site  Level  Report  screen  (Screen  44)  appears. 

Screen  44:  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  45:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "N".  If  the  response 
is  "Y" ,  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "n",  the 
data  and  associated  headings  appear.  Screen  46  is  a  sample 
report  format. 

Screen  46:  All  records  for  a  specific  site  are 
selected  from  the  Equipment  database  and  their  quantities 
are  totaled.  The  Site  Number,  CLIN,  Feature  Number, 
Equipment  Description,  and  total  site  quantity  are 
presented.  After  each  screen,  choose  either:  1  -  continue 
the  report  or  2  -  exit  the  report  process.  On  exiting,  the 
system  returns  to  the  Site  Level  Reports  Menu  (Screen  42). 
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2. 3. 3. 7. 2. 2  Obtain  a  Site  Specific  Report  of  Manuals. 

Select  menu  option  2  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  manual  report. 
After  the  selection  of  option  2,  the  Site  Level  Manual 
Report  screen  (Screen  47)  appears. 

Screen  47 :  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  48:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "n".  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "N" ,  the 
data  and  associated  headings  appear.  Screen  49  is  a  sample 
report  format. 

Screen  49:  The  Manual  File  is  accessed  and  each 
feature  number  within  the  selected  site  appears.  Report 
items  include  Site  Number,  CLIN,  Feature  Number, 

Description,  and  Manual  Description.  After  each  screen, 
choose  either:  1  -  continue  the  report  or  2  -  exit  the 
report  process.  On  exiting,  the  system  returns  to  the  Site 
Level  Reports  Menu  (Screen  42). 


2. 3. 3. 7.2. 3  Obtain  a  Site  Specific  Report  by  Serial 
Number . 


Select  menu  option  3  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  report  of  serial 
numbers.  After  the  selection  of  option  3,  the  Site  Serial 
Number  Report  screen  (Screen  50)  appears. 

Screen  50:  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  51 :  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "N" .  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "N" ,  the 
data  and  associated  headings  appear.  Screen  52  is  a  sample 
report  format. 
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Screen  52:  All  serial  numbers  for  each  component  at  a 
site  appear.  Entries  include:  Site  Number,  CLIN,  Feature 
Number,  Description,  Effective  Delivery  Order  Date,  total 
component  quantity  on  the  delivery  order,  specific  component 
number  (e.g.  1  of  9),  and  the  applicable  serial  number. 

After  each  screen,  choose  either:  1  -  continue  the  report  or 
2  -  exit  the  report  process.  On  exiting,  the  system  returns 
to  the  Site  Level  Reports  Menu  (Screen  42). 


2. 3. 3. 7. 3  Obtain  a  Report  for  a  Delivery  Order  Issued  on  a 
Particular  Date. 


Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  a  report  for  a  delivery  order 
issued  on  a  particular  date.  The  Report  by  Type  Menu 
(Screen  36)  appears.  From  the  Report  by  Type  Menu,  select 
option  3.  After  the  selection  of  option  3,  the  Delivery 
Order  Date  Level  Reports  Menu  (Screen  53)  appears. 

Screen  53:  Select  one  of  four  options:  1  -  obtain  an 
equipment  report  with  unit  costs;  2  -  obtain  an  equipment 
report  without  costs;  3  -  obtain  a  report  by  serial  number; 
or  4  -  return  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 


2 . 3 . 3 . 7 . 3 . 1  Obtain  a  Report  by  Equipment  Type  with  Unit 
Prices . 


Select  menu  option  1  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  Screen  53)  to  obtain  a  date  level 
report  broken  down  by  equipment  type  with  unit  prices. 

After  the  selection  of  option  1 ,  the  Delivery  Order  Level 
Report  screen  (Screen  54)  appears. 

Screen  54:  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  55:  All  delivery  orders  existing  in  the 
Equipment  database  appear.  After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.  On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 


Screen  56:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "n".  If  the  response 
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is  "Y" ,  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "N" ,  the 
data  and  associated  headings  appear.  Screen  57  is  a  sample 
report  •  format . 

Screen  57 :  Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Quantity,  and  Component  Unit  Purchase  Price. 
After  each  screen,  choose  either:  1  -  continue  the  report  or 
2  -  exit  the  report  process.  On  exiting,  the  system  returns 
to  the  Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 


2. 3. 3. 7. 3. 2  Obtain  a  Report  by  Equipment  Type  without  Unit 
Prices . 


Select  menu  option  2  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  Screen  53)  to  obtain  a  date  level 
report  broken  down  by  equipment  type  without  unit  prices. 
After  the  selection  of  option  2,  the  Delivery  Order  Level 
Report  screen  (Screen  58)  appears. 

Screen  58:  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  59:  All  delivery  orders  existing  in  the 
Equipment  database  appear.  After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.  On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 

Screen  60:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "N".  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "N" ,  the 
data  and  associated  headings  appear.  Screen  61  is  a  sample 
report  format. 

Screen  6 1 :  Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Quantity,  and  FDC  Model  Number.  After  each 
screen,  choose  either:  1  -  continue  the  report  or  2  -  exit 
the  report  process.  On  exiting,  the  system  returns  to  the 
Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 
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2. 3. 3. 7. 3. 3  Obtain  a  Date  Level  Report  by  Serial  Number. 

Select  menu  option  3  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  (Screen  53)  to  obtain  a  date  level 
report  broken  down  by  serial  number.  After  the  selection  of 
option  3,  the  Site  Serial  Number  Report  screen  (Screen  62) 
appears . 

Screen  62 :  Enter  the  site  number,  an  integer  from  01 
to  58.  The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  63:  All  delivery  orders  existing  in  the 
Equipment  database  appear.  After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.  On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 

Screen  64:  Indicate  whether  a  printed  report  is 
desired.  Responses  are  either  "Y"  or  "N" .  If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).  If  the  response  is  "N" ,  the 
data  and  associated  headings  appear.  Screen  65  is  a  sample 
report  format. 

Screen  65:  Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Effective  Date,  Total  Quantity  by  Component 
ordered  on  the  delivery  order,  specific  component  quantity 
(e.g.  1  of  9),  and  Item  Serial  Number.  After  each  screen, 
choose  either:  1  -  continue  the  report  or  2  -  exit  the 
report  process.  On  exiting,  the  system  returns  to  the 
Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 


2. 3. 3.8  Generate  a  Maintenance  Delivery  Order  for  a  SPLICE 
Site. 


Select  menu  option  8  (from  the  Process  Selection 
Menu  -  Screen  14)  to  generate  a  maintenance  delivery  order 
for  a  SPLICE  site.  Following  the  selection  of  option  8,  the 
Maintenance  Delivery  Order  Generation  Program  screen 
(Screen  66)  appears. 

Screen  66:  Enter  the  following  data:  1  -  Site  Number; 

2  -  LCN  Hardware  Maintenance  Escalation  Rate;  3  -  LCN 
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Software  Escalation  Maintenance  Rate;  4  -  SPLICENet 
Maintenance  Discount  Rate;  and  5  -  Site  Maintenance 
Escalation  Rate.  After  these  data  elements  are  entered, 
choose ■ ei ther :  1  -  continue  or  2  -  exit  the  process.  If  the 
response  is  "Y" ,  the  maintenance  delivery  order  generation 
process  is  initiated  and  takes  approximately  10  minutes  to 
complete.  The  output  file  generated  is  always  "NEWDO. PRN" . 
On  completion  of  the  generation  process,  the  system  returns 
to  the  Process  Selection  Menu  (Screen  14)  to  await  the  next 
selection . 

On  returning  to  the  Process  Selection  Menu,  select  menu 
option  0  to  return  to  the  Function  Selection  Menu 
(Screen  1  ).  From  the  Function  Selection  Menu,  select  menu 
option  2.  After  selecting  option  2,  the  system  transfers  to 
the  LOTUS  1-2-3  environment.  Refer  to  section  2.3.2  on  page 
19  to  obtain  the  specific  details  for  step-by-step 
procedures.  Since  this  is  a  maintenance  delivery  order 
rather  than  an  initial  delivery  order,  follow  the  procedures 
which  address  MAINTDO  worksheet  execution  versus  SKELETON 
worksheet  execution. 


2. 3. 3. 9  Generate  Mailing  Labels  for  all  SPLICE  Sites. 

Select  menu  option  9  (from  the  Process  Selection 
Menu  -  Screen  14)  to  generate  mailing  labels  for  all  SPLICE 
sites.  Following  the  selection  of  option  9,  the  Mailing 
Label  Generation  Program  screen  (Screen  67)  appears. 

Screen  67 :  The  mailing  label  generation  program  simply 
produces  mailing  labels  for  all  the  SPLICE  sites.  Delivery 
order  changes,  contract  amendments,  or  other  SPLICE  related 
cor respondence  may  be  mailed  to  all  SPLICE  sites  without 
having  to  manually  create  labels.  The  only  input  required 
for  the  process  is  the  number  of  copies  of  mailing  labels 
desired  during  the  run.  Valid  input  values  are  from  1  to  1 0 
copies  of  mailing  labels.  When  processing  is  complete, 
control  returns  to  the  Process  Selection  Menu  (Screen  14)  to 
await  the  next  selection. 

This  completes  the  discussion  of  the  process  functions 
of  the  SPLICE  Configurer  and  dBASE  III  Conf iguration 
Management  System.  Exit  the  integrated  system  by  either  of 
two  options:  1  -  select  Function  Selection  Menu  option  5  to 

return  to  the  dBASE  III  system  prompt  or  2  -  select  Function 
Selection  Menu  option  6  to  return  to  the  DOS  operating 
system  prompt. 


HD-01 4#  517  DEVELOPMENT  OF 

KNOWLEDGE -BASE 
SCHOOL  MONTERE 

UNCLASSIFIED 

AN  AUTOMATED  HICROOCOMPUTER 

D  INTEGRATED  CON.  .  <U>  NAVAL  F 
V  CA  R  L  BEARD  MAR  86 

OSTGRADUATE 

F/G  9/2 
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2.3.4  FUNCTION  4:  View  the  on-line  User's  Manual 

Select  Function  Selection  Menu  option  4  to  view  the 
on-line  User’s  Manual.  The  system  temporarily  transfers 
control  to  Wordstar  where  a  copy  of  the  file  "USERS. MAN"  is 
viewed.  Any  changes  made  to  this  file  during  the  viewing 
process  are  not  retained.  The  file  copy  is  destroyed  on 
termination  from  Wordstar.  Terminate  User's  Manual  viewing 
by  typing  either  "'"KD"  or  "''KQ"  (see  note  below).  Either 
command  returns  the  system  to  the  Wordstar  opening  menu. 
Typing  the  letter  "X"  returns  the  system  to  the 
Configuration  Management  System. 

NOTE:  The  commands  "*KD"  and  "“KQ"  are  executed  by 

simultaneously  holding  down  the  "CTRL"  key  (represented  by 
the  character  * )  on  the  left  side  of  the  keyboard  and  typing 
the  letter  "k"  followed  by  either  letters  "D"  or  "Q". 


3 . 0  System  Output. 

The  output  from  the  SPLICE  Pascal  configurer  is  a 
formatted  disk  file.  The  file  is  input  data  for 
LOTUS  1-2-3,  which  has  3  outputs:  1  -  an  archival  LOTUS 
" . WKS "  disk  file;  2  -  a  dBASE  ".PRN"  input  disk  file;  and 
3  -  a  delivery  order. 

The  dBASE  process  has  numerous  outputs.  Refer  to 
Section  2  (Screens  36  through  66)  for  further  information. 


4 . 0  Exception  Reports. 

This  integrated  system  is  interactive,  therefore,  no 
hard  copy  exception  reports  are  produced.  Error  ■‘ously 
entered  data  is  presented  to  the  user  for  immediate  action 
or  correction. 


5.0  Limitations. 


The  SPLICE  System  Configurer  was  designed  on  an  IBM-PC, 
but  is  intended  to  be  run  on  an  IBM-PC  AT.  The  designers 
recommend  that  the  target  IBM-PC  AT  have  the  maximum  user 
memory  allowed  (640KB).  To  run  the  dBASE  Configuration 
Management  System,  a  hard  disk  is  mandatory.  The  system 
requires  a  132  column  printer  to  print  delivery  orders 
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generated  from  both  LOTUS  1-2-3  and  dBASE  processes  and 
mailing  labels. 

If  a  system  other  than  an  IBM-PC/AT  is  used,  the  system 
will  respond  slowly.  Further  performance  degradation  will 
occur  while  importing  the  ".PRN"  file  into  LOTUS. 

Performance  degradation  will  also  occur  during  the  Serial 
Number  building  process  in  the  file  load  and  in  the 
maintenance  delivery  order  generation  process. 

256KB  of  memory  is  required  if  dBASE  III  version  1.0  is 
used.  384KB  RAM  is  required  if  dBASE  version  1.1  is  used. 

The  SPLICE  Pascal  Configurer  system  is  limited  by  the 
number  of  components  it  can  configure  (200)  and  the  number 
of  sites  it  can  configure  (58). 

The  LOTUS  1-2-3  and  dBASE  III  modules  exhibit  only 
those  limitations  which  exist  for  those  "off-the-shelf" 
packages . 


6 . 0  Command  Sequence. 

Issue  the  command  SPLICE  (ex:  C>SPLICE)  from  the  DOS 
command  prompt  to  invoke  the  SPLICE  integrated  configuration 
system  (Pascal  Configurer  and  dBASE  Configuration  Management 
System).  This  directs  DOS  to  process  a  command  batch  file 
named  SPLICE.  The  command  batch  file  issues  all  required 
commands  and  causes  the  integrated  system  to  load  the  memory 
resident  module  FLASHUP  and  commence  integrated  system 
execution  (See  Section  2  for  more  detailed  entries). 

NOTE:  Prior  to  issuing  the  command  SPLICE,  deactivate  any 

resident  color  enhancement  programs  (ex:  KOLOR.COM).  Such 
programs  interfere  with  the  screen  colors  generated  by  the 
system  and  data  entry  color  attributes. 


7.0  Who  to  Call. 


If  program  malfunctions  occur  or  questions  related  to 
the  system  arise,  contact  LCDR  E.  J.  Case,  SC,  USN,  phone 
number  (408)  384-8204  or  LCDR  R.  L.  Beard  III,  SC,  USN, 
phone  number  (408)  646-1982. 
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SELECTION  CRITERIA  FOR  A  SPLICE  CONFIGURATION 


SITE  NAME: 


SITE  NUMBER: 


DISCOUNT/ESCALATION  RATES: 


FDC  SNA  Interface  discount  rate: 

NON-LCN  PURCHASE  discount  rate: 

LCN  PURCHASE  discount  rate: 

SPLICENet  Software  Maintenance  discount  rate: 
SPLICENet  Software  Purchase  discount  rate: 
EMERGENCY  MAINTENANCE  escalation  rate: 

LCN  HARDWARE  MAINTENANCE  escalation  rate: 

LCN  SOFTWARE  MAINTENANCE  escalation  rate: 
INSTALLATION  escalation  rate: 

TRAINING  escalation  rate: 

DOCUMENTATION  escalation  rate: 

MAINTENANCE  escalation  rate  from  SPLICE  contract: 


Output  File  Name: 


.  PRN 


Number  of  MAINTENANCE  MONTHS  for  this  order: 


Effective  Delivery  Order  Date: 


/  / 

(MM  /  DD  /  YY) 
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HARDWARE  SELECTIONS: 

PROCESSORS  recommended  by  FMSO  Sizing  Study: 
CENTRONICS  PRINTERS  to  be  ordered: 

TANDEM  CRTS  to  be  ordered: 

128MB  DISCs  FMSO  Sizing  Study  recommended,  EVEN  No 

240MB  DISCs  FMSO  Sizing  Study  recommended,  EVEN  No 

540MB  DISCs  FMSO  Sizing  Study  recommended,  EVEN  No 

Non-6100  ASYNC  Controllers  to  be  installed: 

Non-6100  ASYNC  EXTENSION  BOARDS  to  be 

installed  per  controller  (0/1/2): 

BIT  SYNC  LINES  to  be  supported: 

BYTE  SYNC  LINES  to  be  supported: 

TRI-DENSITY  TAPE  DRIVES  to  be  installed: 

(Ensure  fixed  disk  archival 
back-up  drives  are  included) 

READER/PUNCHES  to  be  installed: 

CARD  READERS  to  be  installed: 

1000  LPM  PRINTERS  to  be  installed: 

600  LPM  PRINTERS  to  be  installed: 

LCN  TRUNKS  required  for  the  network: 

6100  LINE  INTERFACE  UNITS: 

PERKIN-ELMER  Local  Computer  Network  interfaces: 
Burroughs  B4800  Local  Computer  Network  interfaces: 
Burroughs  B4900  Local  Computer  Network  interfaces: 
IBM  System  Local  Computer  Network  interfaces: 
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UNIVAC  System  Local  Computer  Network  interfaces: 
FIPS  Standard  Local  Computer  Network  interfaces: 
TANDEM  HYPERchannels  to  be  installed: 

PATCH  PANEL  CABINETS: 

(additional  for  reserve  and  expansion) 

SYSTEM  CABINETS: 

(additional  for  reserve  and  expansion) 

EXPANSION  CABINET ( S ) : 

(additional  for  reserve  and  expansion) 

HYPERchannel  Adapter  Cabinet(s)  required: 

Estimate  the  distance  between  the  two  most  distant 
Computers  on  the  Local  Computer  Network,  Range  - 
(1  to  5000  feet )  : 


APPENDIX  A:  USER'S  MANUAL 
SOFTWARE  SELECTIONS: 

File  Security  System  Software  (Yes/No)? 

LCN  File  Utility  Package  Software  (Yes/No)? 
ATP  6100  Software  (Yes/No)? 

BSC  6100  Software  (Yes/No)? 

ADCCP  6100  Software  (Yes/No)? 

BURROUGHS  POLL/SELECT  6100  Software  (Yes/No) 
SNAX  and  SNAX/HLS  6100  Software  (Yes/No)? 
TINET  6100  Software  (Yes/No)? 

TR  3271  Software  (Yes/No)? 

AM  6520  Software  (Yes/No)? 

T-TEXT  Software  (Yes/No)? 

FDC  SNA  Interface  Software  (Yes/No)? 

FDC  DLANet  Interface  Software  (Yes/No)? 

DDN  Interface  Software  (Yes/No)? 

NETWORK  MAINTENANCE  FACILITY  ( NMF ) : 

NMF  Group  Package  Software  (Yes/No)? 

NMF  Base  Facility  Software  (Yes/No)? 

NMF  Performance  Monitoring  Software  (Yes/No) 
NMF  Diagnostic  Monitoring  Software  (Yes/No)? 
NMF  Accounting  Application  Software  (Yes/No) 
NETEX  MAINTENANCE  MONTHS  for  this  order: 
SPLICENet  MAINTENANCE  MONTHS  for  this  order: 
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DOCUMENTATION  SELECTIONS: 

COMPUTER  OPERATIONS  MANUAL  sets  required: 
SYSTEMS  PROGRAMMER  MANUAL  sets  required: 
HARDWARE  MANUAL  sets  required: 

PROGRAMMER  REFERENCE  MANUAL  sets  required: 

TRAINING  SELECTIONS: 

Select  Training  Group  to  be  ordered 
(Group  I - IV  /  None): 

OPERATOR  TRAINING  COURSES  required: 

HARDWARE  OVERVIEW  COURSES  required: 

SYSTEMS  RESOURCE  MANAGEMENT  COURSES  required: 

SYSTEMS  TUNING  AND  XRAY  COURSES  required: 

DATA  COMMUNICATIONS  COURSES  required: 

TAL  COURSES  required: 

SPLICENet  Migration  Workshop  COURSES  required: 


MAINTENANCE  AND  SITE  PREP  SELECTIONS: 

EMERGENCY  PER-CALL  MAINTENANCE  months  required: 
Should  we  include  SITE  PREPS  in  this  run?  (Yes/No): 


APPENDIX  A 


USER'S  MANUAL 


Page  A2-50 


APPENDIX  A:  USER'S  MANUAL 


Page  A2-51 


01  ASO  PHILADELPHIA 
04  MCAS- CHERRY  POINT 
07  MCAS  YUMA 
10  NARDAC  NEW  ORLEANS 
13  NARDAC  SAN  DIEGO 
16  NAS  BARBERS  POINT 
19  NAS  KEY  WEST 
22  NAS  MIRAMAR 
25  NAS  WHIDBEY  ISLAND 
28  NAVDAF  CORPUS  CHRISTI 
31  NAVDAF  MOFFETT  FIELD 
34  NRCC  NEWPORT 
37  NUWES  KEYPORT 
40  NSC  NORFOLK 
43  NSC  PUGET  SOUND 
46  NSD  SUBIC  BAY 
49  NSY  PORTSMOUTH 
52  SUBASE  KINGS  BAY 
55  SWFPAC  BREMERTON 
58  IRF  KINGS  BAY 
61  TO  BE  DETERMINED 


LISTING  OF  SPLICE  SITES 
02  FMSO  MECHANICSBURG 
05  MCAS  EL  TORO 
08  NAC  INDIANAPOLIS 
11  NARDAC  NORFOLK 
14  NARDAC  SAN  FRANSISCO 
17  NAS  BRUNSWICK 
20  NAEC  LAKE  HURST 
23  NAS  OCEANA  (INACTIVE) 
26  NATC  PATUXENT  RIVER 
29  NAVDAF  GREAT  LAKES 
32  NAVDAF  ORLANDO 
35  NRCC  PHILADELPHIA 
38  NAVSIA  MAYPQRT 
41  NSC  OAKLAND 
44  NSC  SAN  DIEGO 
47  NSD  YOKOSUKA 
50  NTC  SAN  DIEGO 
53  SUBASE  NEW  LONDON 
56  TRF  BANGOR 
69  TO  BE  DETERMINED 
62  TO  BE  DETERMINED 


03  FMSO  MECHANICSBURG 
06  MCAF  QUANTICO 
09  NARDAC  JACKSONVILLE 
12  NARDAC  PENSACOLA 
15  NARDAC  WASHINGTON 
18  NAS  CECIL  FIELD  j 

21  NAS  MEMPHIS  I 

24  NAS  PENSACOLA 

27  PMTC  POINT  MUGU 
30  NAVDAF  LEMOORE 
33  NRCC  LONG  BEACH 
36  NRCC  WASHINGTON 
39  NSC  CHARLESTON  | 

42  NSC  PEARL  HARBOR 

45  NSD  GUAM 

48  NSY  PHILADELPHIA 

51  SPCC  MECHANICSBURG  j 
54  SUBASE  PEARL  HARBOR 
57  SWFLAN1  KINGS  BAY 
60  TO  BE  DETERMINED 


Please  select  the  site  you  desire  to  configure:  ■* 

SCREEN  3 


OUTPUT  MEDIA  and  D I SCOUNT / E SCAL A 1  ION  RATES 
— =====  DISCOUNT  &  ESCALATION  RATES  — 

Values  input  are  added  to  one  (1) 
the  correct  discount  or  escala 


FUC  SNA  Interface  Discount  Rate: 

Non-LCN  Purchase  Discount  Rate: 

LCN  Purchase  Discount  Rate: 

SPLICENet  Software  Maintenance  Discount  Rate 
SPLICENet  Software  Purchase  Discount  Rate: 
Emergency  Maintenance  Escalation  Rate: 

LCN  Hardware  Maintenance  Escalation  Rate: 

LCN  Software  Maintenance  Escalation  Rate: 
Installation  Escalation  Rate: 

Training  Escalation  Rate: 

Documentation  Escalation  Rate: 

Maintenance  Escalation  Rate: 

■■  OUTPUT  " PRN"  FILE  NAME 

SPLICE  uput  and  LOTUS  1-2-3  input  filename: 
=====  MAINTENANCE  MONTHS  =— ==■  „=  Deliv 
Hardware  Maintenance  Mon'aS:  ■■  j  Effee 


=  Delivery  urde.  Elfecti 
Effective  Da t e  ■ 


.PRN 
,e  U  a  t e 
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SYSTEM  COMPONENTS  — 


Processors 
Centronics  Printers 
Tandem  CRT s 
128  MB  Disks 
240  MB  Disks 
540  MB  Disks 

Non-6100  ASYNC  Controllers 

Non-6100  ASYNC  Extension  Boards 

Bit  SYNC  Lines 

Byte  SYNC  Lines 

Tri-Density  Tape  Drives 

Reade,-/Punches 

Card  Readers 

1000  LPM  Printers 

600  LPM  Printers 

LCN  Coaxial  Cables  (Trunks) 

6100  Line  Interface  Units  (LIUs) 


HARDWARE  j=  LCN  INTERFACE  ADAPTERS  — 


PERKIN-ELMER 
BURROUGHS  4800 
BURROUGHS  4900 
IBM  System 
UNIVAC  System 
FIPS  Standard 
Tandem  HYPERchannel 

=====  CABINETS  - 


MAX  DISTANCE  BETWEEN  COMPUTERS 


(A) 

1 

-  500 

FT 

(B) 

501 

-  1000 

FT 

(11) 

1001 

-  1 5uO 

FT 

(U) 

1501 

-  2500 

FT 

(E) 

2501 

-  400U 

FT 

(F) 

4001 

-  5000 

FT 
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SYSTEM  COMPONENTS  ===||  HARDWARE  |T=  LCN  INTERFACE  ADAPTERS 


Processors 
Centronics  Printers 
Tandem  CRTs 
123  MB  Disks 
240  MB  Ui<ks 
540  MB  Uisxs 

Non-6100  ASYNC  Controllers 

Non-6100  ASYNC  Extension  Boards 

Bit  SYNC  Lines 

Byte  SYNC  Lines 

T r i-Dens i ty  Tape  Dr  ives 

Reader/Punches 

Card  Readers 

1000  LPM  Printers 

600  LPM  Printers 

LCN  Coaxial  Cables  (Trunks) 

6100  Line  Interface  Units  (LIUs) 


PERKIN-ELMER 
BURROUGHS  4800 
BURROUGHS  4900 
IBM  System 
UNIVAC  System 
FIPS  Standard 
Tandem  HYPERcnanne 1 


unuiM 

L_  1  O 

COMP 

X  TRA 

Patch  Panel  | 

■■ 

"■ 

System  i 

aa 

" 

Ex  pans  ion 

aa 

MAX 

DISTANCE 

BETWEEN 

(A) 

1  - 

500 

FT 

(B) 

501  - 

100U 

FI 

(G) 

TOOT  - 

1500 

FT 

(13) 

15U1  - 

2500 

FI 
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---  ■-  SOFTWARE  RELATED  INPUTS  - 

SOFTWARE  PACKAGES 


File  Secur i t y 
LCN  File  Utility  Package 
6100  Packayes 
ATP 
BSC 
ADCCP 

Burroughs  Poll  Select 
SNAX  j’k!  GNAx/HLS 
TI  NET 
I R  32,' I 
A  M  6520 
1- lex  t 


FDC  SNA  Interface 
FDC  ULANET  Interface 
DDN  Interface 

NMF  Group 

NMF  Packages 

Base  Facility 
Perfu  nee  Monitoring 
Diayn^  .ic  Monitoring 
Accounting  Application 


.■ttxxU'tMttit'tx  MljNIHS  of  SOFTWARE  MAINTENANCE 

NEIEX  Maintenance  Months  ■■ 

SPLICENet  Maintenance  Months  ■■  ii 
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DOCUMENTATION,  TRAINING  &  MAINTENANCE  INPUIS 


DOCUMENTATION  MANUALS 


Computet  Operations 
P  r  oy  r  amin  e  r  Ref  o  r  e  n  c  e 


Hardware 


Systems  Programmer 


1  RAINING  GROUPS 
|  (1)  Group  I  (5)  None 

;  (2)  Group  II 

|  (!)  Group  III 

j  (4)  uroup  IV 

j!  I  RAINING  COURSES 


,  Operator  Training 
!  Hardware  Overview 

Systems  Resource-  Manayemei 
i  Systems  Tuning  anj  XRAY 
j)  a  i  t-i  Cunimun  ica  f  i ons 
;j  TANDEM  Appl  ic  it  ion  Lanyua 
|j  SPLICENet  Migration  Worn  si 


EMERGENCY  MAINTENANCE  A  SITE  PREPARATIONS 


Months  of  EMERGENCY  PER-CALL 


1  sc  1  to- : o  Charges?  (Yes  or 


SCREEN  G 
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1-2-3 

Copyright  (C)  1982,1983 
Lotus  Development  Corporation 
All  R ights  Reserved 

Release  1A 

* 


(Press  Any  Key  To  Continue) 


SCREEN  9 


Al: 


READY 


A  8  C  D  E 

1 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 


F  G 


SCREEN  ID 


107 


:  a.  -  t  \   t.  1  ^  - 
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Enter  name  of  file  to  retrieve: 
SKELETON  MAINTORO 

A  B  C 

1 


SCREEN  11 


READY 


SCREEN  12 


[« 
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READY 


1 

o 

A 

B 

C 

D 

E 

C 

3 

4 

5 

Site: 

44 

NSC  SAN  DIEGO,  CA 

6 

7 

8 

Hardware 

9 

10 

11 

Contract 

Feature 

12 

Line  No. 

Numbers 

Description 

Qty 

Unit  Price 

13 

14 

440101 

010201 

NS-TXP,  2  MEG 

8 

86760.00 

15 

440102 

010301 

2  MEG  MEMORY 

8 

19800.00 

16 

440104 

013001 

0SP  WITH  6530 

1 

13387.50 

17 

440105 

013101 

CENTRONIX  PRINTER 

2 

1615.50 

18 

440106 

013201 

6530  CRT 

17 

2317.50 

19 

440107 

013202 

PRINTER  INTERFACE 

1 

409.50 

20 

440108 

015001 

PATCH  PANEL  CABINET 

2 

2250.00 
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—  — . —  PROCESS  SELECTION  MENU  — - — - — 

Stock  Point  Logistics  Integrated  Communications  Environment 

SPLICE 


Load  a  new  DELIVERY  ORDER  into  the  database 
Perform  maintenance  on  the  EQUIPMENT  File 
Perform  maintenance  on  the  EQUIPMENT  DESCRIPTION  File 
Perform  maintenance  on  the  SITE  NAME  File 
Perform  maintenance  on  the  MANUAL  File 
Perform  maintenance  on  the  SERIAL  NUMBER  File 
Generate  REPORTS  for  the  Project,  a  Site  or  Equipment 
Generate  a  MAINTENANCE  DELIVERY  ORDER  for  a  SPLICE  Site 
Generate  MAILING  LA8ELS  for  all  SPLICE  Sites 


RETURN  to  the  Function  Selection  Menu 


Please  enter  your  choice: 


[IE 
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DELIVERY  ORDER  LOAD  MENU 


[1]  Load  a  new  delivery  order 

[2]  Return  to  the  Main  Menu 
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DELIVERY  ORDER  LOADING  SELECTION  MENU 

LOTUS  1-2-3  output  file  name  to  load:  ■■■■■■■■. PRN 

Effective  Date  of  the  Delivery  Order:  ■■■■■■ 

YYMMDD 

Site  Number  on  the  Delivery  Order:  ■■ 

Enter  the  Site  Number  to  be  loaded:  ■■ 


Page 


Do  you  want  to  enter  another  Delivery  Order?  (Yes  or  No): 
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EQUIPMENT  MAINTENANCE  SELECTION  MENu] 

[1] 

Modify  DataBase  Entries  ; 

[2] 

Review  Existing  Records 

[3] 

Return  to  the  Main  Menu 
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EQUIPMENT  UPDATE  FORMAT 
Current  Record  #:  ■■■■■ 


Site  Number:  ■■  Effective  Date  of  Delivery  Order: 


Feature  Number:  ■■■' 

CLIN  Nomenclature/Oescr iption: 

Quantity  Ordered:  ■■■ 


Basic  Unit  Cost: 

Monthly  Maintenance  Cost: 
Unit  Installation  Cost: 


YYMMDD 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit:  ■ 


DESCRIPTION  UPDATE  FORMAT 


Current  Record  i :  ■■■■■ 

Feature  Number:  ■■■■■■ 

Contract  Line  Item  Number  (CLIN):  ■■■■ 

CLIN  Nomenclature  /  Description:  ■■■■■■■■■■■■■■■■■■■■ 
TANDEM  Model  Number:  ■■■■■■■■■■ 

FDC  Model  Number: 

Type  of  Component:  ■ 

Base  Maintenance  Price:  ■■■■•■■ 

Notes: 

Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 

SCREEN  21 


EQUIPMENT  DESCRIPTION  EDITING/TERMINATION  INFORMATION 


1.  To  edit  the  NOTES  field,  ensure  the  cursor  is  on  the  word  , 
"memo"  and  press  the  <CTRL>  and  "PgDn"  keys  toyether. 

2.  To  EXIT  the  internal  editor  and  SAVE  the  changes  made  to 
the  NOTES  field,  press  the  <CTRL>  and  "W"  keys  toyether. 

3.  To  EXIT  the  internal  editor  WITHOUT  SAVING  the  changes 
made  to  the  NOTES  field,  press  the  <ESC>  key.  This  will 
return  you  to  the  full  screen  mode  for  the  record  being 
changed . 

4.  To  SAVE  the  changes  made  by  trie  internal  editor  and  re-  ) 

turn  to  the  conf iyurat  ion  program,  press  the  <CTRL>  and 

"W"  keys  together.  I 

5.  To  return  to  the  con f igurat ion  program  WITHOUT  SAVING  the  I 
changes  made  by  the  internal  editor,  press  the  <ESC>  Ney. 
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SCREEN  23 


SITE  NAME  MAINTENANCE  MENU 


[1]  Modify  DataBase  Entries 

[2]  Review  Existing  Records 

[3]  Return  to  the  Main  Selection  Menu 


SCREEN  24 
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Number 

SITE  ADDRESS  DATA  UPDATE  FORMAT 

Current  Record  H :  ■■■■■ 

■  ■ 

Abbreviated  Name 

Commander' s  Ti tl e 

Full  Name 

Address  -  Line  1 

Address  -  Line  2 

City 

State 

■  ■ 

Zip  Code 

Type  Activity 

■  ■■■ 

Maintenance  Option 

■  ■■■ 

Maintenance  Response  Time  ■ 

Enter  N  -  next 

record,  P  -  previous  record  or  X  -  exit: 

SCREEN  25 


SITE  ADDRESS  DATA  UPDATE  FORMAT 

Current  Record  1:  ■■■■■ 

Number 

■  ■ 

Abbreviated  Name 

■ 

Commander' s  Title 

i  Full  Name 

Address  -  Line  I 

Address  -  Line  2 

City 

State 

■■ 

Zip  Code 

Type  Activity 

■■■■ 

Maintenance  Option 

■  ■■■ 

Maintenance  Response  Time  ■ 

Enter  N  -  next 

record,  P  -  previous  record  or  X  -  exit: 

SCREEN  26 


1  1  5 


MANUAL  MAINTENANCE  MENU 


[1] 

Add  a  new  manua 

description 

[2] 

Update 

existing 

descr i pt i on ( s) 

[3] 

Delete 

existing 

description(s) 

[4] 

Review 

existing 

description(s) 

[5] 

Return 

to  the  Main  Menu 

MANUAL  ADDITION  FORMAT 

Current  Record  <# :  ■■■• 

Site  Number;  ■■ 


Feature  Number; 

Contract  Line  Item  Number  (CLIN) 
CLIN  Nomencl ature/Descr iption: 


Manual  Description; 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 


APPENDIX  A 


MANUAL  UPDATE  FORMAT 


Current  Record  #: 


Site  Number: 


Feature  Number:  ■■■« 
Contract  Line  Item  Number  (CLIN):  ■■■■ 
CLIN  Nomenclature/Description:  ■■■■' 


Manual  Description: 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  ex 


SCREEN  Z9 


MANUAL  DELETION  FORMAT 

Current  Record  t :  ■■■' 


Site  Number: 


Feature  Number:  *■■■' 
Contract  Line  Item  Number  (CLIN):  ■■■■ 
CLIN  Nomenclature/Description:  ■■■■' 


Manual  Description: 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  ex 
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SERIAL  NUMBER  UPDATE  FORMAT 


Current  Record  »: 


Site  Number:  ■■  Effective  Date  of  Delivery  Order:  ■■■■■■ 

YYMMOO 

Contract  Line  Item  Number  (CLIN) :  ■■■■ 

Feature  Number:  ■■■■■■ 

CLIN  Nomenclature/Descr iption:  ■■■■■■■■■■■■■■■■■■■■■■■■■■ 

Quantity  Ordered:  ■■■ 

Serial  Number  sub-record  ■■■  of  ■■■ 

Serial  Number:  ■■■■■■■■ 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit:  * 


SCREEN  33 


In  order  for  the  user  to  be  able  to  perform  a  SERIAL  NUMBER  update, 
three  (3)  data  elements  must  be  known: 

1:  The  SITE  NUMBER 

2:  The  EFFECTIVE  DATE  of  the  delivery  order 

3:  The  FEATURE  NUMBER  of  the  serial  number  to  be  modified 

If  all  tree  of  these  elements  are  not  known,  the  user  should  terminate 
the  update  process  and  request  a  DATE  LEVEL  REPORT  for  the  site  number 
in  question  (Option  "7"  on  the  PROCESS  SELECTION  MENU  followed  by  option 
"3"  on  the  REPORT  BY  TYPE  MENU).  Any  one  of  the  three  options  will 
enable  the  user  to  view  all  three  of  the  data  elements  needed  for  the 
Serial  Number  Update  process.  Once  all  three  data  elements  have  been 
obtained,  the  user  can  then  select  the  Serial  Number  Update  option. 

I 

Please  select  the  option  desired  Pelow:  j 

[1]  Continue  with  the  Serial  Number  Update  process.  , 

[2]  Exit  the  Serial  Number  Update  process  to  obtain  a  U  A I E  j 

LEVEL  Report  and  the  force  required  data  elements.  j 

I 
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SERIAL  NUMBER  REVIEW  FORMAT 

Current  Record  §:  ■■■■■ 

Site  Number:  ■■  Effective  Date  of  Delivery  Order:  ■■■■■■ 

YYMMDD 

Contract  Line  Item  Number  (CLIN):  ■■■■ 

Feature  Number:  ■*■■■■ 

CLIN  Nomenclature/Description:  ■■■■■■■■■■■■■■■■■■■■*■■■■■ 

Quantity  Ordered:  ■■■ 

Serial  Number  sub-record  of 

Serial  Number:  ■■■■■■■■ 

Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit:  ■ 

SCREEN  35 


REPORT  BY  TYPE  MENU 


SCREEN  36 
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ATTENTION! 

1.  Turn  on  your  printer. 

2.  Insert  paper. 

3.  Position  to  top  edge. 
Press  ENTER  to  continue 


SCREEN  37 


PROJECT  LEVEL  REPORTS 

[1]  Report  by  EQUIPMENT  Type 

[2]  Report  by  SERIAL  NUMBER 

[3]  Return  to  tne  Reports  Level  Menu 


SCREEN  38 


1  ?  1 


EQUIPMENT  PROJECT  LEVEL  REPORT 


FEATURE# 

OOOIOI 
010201 
010301 
013001 
013101 
013201 
013202 
015001 
015101 
015201 
015301 
016001 
016101 
016201 
016301 
Enter  C  to 


DESCRIPTION 

SHE  POWER  PREPARA  1 1 
NS-TXP,  2  MEG 
2  MEG  MEMORY 
OSP  WITH  653U 
CENTRONIX  PRINTER 
6530  CRT 

PRINTER  INTERFACE 
PATCH  PANEL  CABINET 
SYSTEMS  CABINET 
I/O  POWER  MODULE 
EXPANSION  CABINET 
DISC  PATCH  PANEL 
THL  PATCH  PANEL 
ASYNC  PATCH  PANEL 
SYNC  PAT  CHI’ AN  Ft 
continue  or  x  to  exit: 
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3 


SCREEN  41 


EQUIPMENT  SERIAL  NUMBER  PROJECT 

LEVEL  REPORT 

EFFECT 

TOT 

COMPT 

SERIAL 

s 

ITE 

CLIN 

FEATURE# 

DESCRIPTION 

DATE 

QTY 

QTY 

NUMBER 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

4 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

3 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

2 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

1 

01 

0104 

013001 

OSP  WITH  6530 

841127 

1 

1 

01 

0105 

013101 

CENTRONIX  PRINTER 

841127 

2 

O 

c 

01 

0105 

013101 

CENTRONIX  PRINTER 

841127 

2 

1 

01 

0106 

013201 

6530  CRT 

341127 

25 

25 

01 

0106 

013201 

6530  CRT 

841127 

25 

24 

01 

0106 

013201 

6530  CRT 

841127 

25 

23 

1 

01 

0106 

013201 

6530  CRT 

841127 

25 

22 

01 

0106 

013201 

6530  CRT 

841127 

25 

21 

01 

0106 

013201 

6530  CRT 

841127 

25 

20 

01 

0106 

013201 

6530  CRT 

841127 

25 

19 

01 

0106 

013201 

6530  CRT 

841127 

25 

13 

Enter  C  to  continue  or  X  to 

exit:  C 

_ 
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SITE 

.EVEL  REPORTS 

[1] 

Report  by 

EQUIPMENT  type 

[2] 

Report  of 

MANUALS 

[3] 

Report  oy 

SERIAL  NUMBERS 

[4] 

Return  to 

the  Reports  Level  Menu 

SCREEN  43 


EQUIPMENT  SITE  LEVEL  REPORT 


Enter  site  number  for  which  the  report  is  desired:  01 


Enter  C  to  continue  or  X  to  exit: 


user's  manual 


Page 


APPENDIX  A: 


EQUIPMENT  SITE  LEVEL  REPORT 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  45 


EQUIPMENT  SITE  LEVEL  REPORT 


CLIN 

FEATURE# 

DESCRIPTION 

QTY 

000101 

SITE  POWER  PREPARATIONS 

1 

0101 

010201 

NS-TXP,  2  MEG 

13 

0102 

010301 

2  MEG  MEMORY 

13 

0104 

013001 

0SP  WITH  6530 

1 

0105 

013101 

CENTRONIX  PRINTER 

3 

0106 

013201 

6530  CRT 

25 

013202 

PRINTER  INTERFACE 

1 

0108 

015001 

PATCH  PANEL  CABINET 

3 

0109 

015101 

SYSTEMS  CABINET 

4 

015201 

I/O  POWER  MODULE 

12 

0109 

015301 

EXPANSION  CABINET 

1 

0112 

016001 

DISC  PATCH  PANEL 

5 

Ufa! 

016101 

THL  PATCH  PANEL 

1 

as 

016201 

ASYNC  PATCH  PANEL 

2 

0115 

016301 

SYNC  PATCHPANEL 

2 

Enter  C  to  continue  or  X  to  exit:  C 
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r*  '  r-rr^r 


•’T ^  v^» 
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o 


'N 
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\  < 


•:* 


jJ 

PI 


SITE  LEVEL  MANUAL  REPORT 


SITE 

CLIN 

FEATURE » 

DESCRIPTION 

40 

0101 

010201 

NS-TXP ,  2  MEG 

40 

0102 

010301 

2  MEG  MEMORY 

40 

0104 

013001 

0SP  WITH  6530 

40 

0105 

013101 

CENTRONIX  PRINTER 

40 

0106 

013201 

6530  CRT 

40 

0107 

013202 

PRINTER  INTERFACE 

40 

0108 

015001 

PATCH  PANEL  CABINET 

40 

0109 

015101 

SYSTEMS  CABINET 

40 

0110 

015201 

1/0  POWER  MODULE 

40 

0109 

015301 

EXPANSION  CABINET 

40 

0112 

016001 

DISC  PATCH  PANEL 

40 

0113 

016101 

THL  PATCH  PANEL 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

40 

0115 

016301 

SYNC  PATCHPANEL 

40 

1101 

110101 

DISC  CONTROLLER 

Enter  C  to  continue  or 

MANUAL  DESCRIPTION 


to  exit: 


APPENDIX  A 
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DELIVERY  ORDER  DATE  LEVEL  REPORT 

[1] 

EQUIPMENT  with  unit  costs 

[2] 

EQUIPMENT  without  unit  costs 

[3] 

SERIAL  NUMBERS 

[4] 

RETURN  to  the  Reports  Level  Menu 

SCREEN  53 


DELIVERY  ORDER  LEVEL  REPORT 


Enter  site  number  for  which  the  report  is  desired:  01 


Enter  C  to  continue  or  X  to  exit: 


APPENDIX  A: 


USER'S  MANUAL 


Pag 


DELIVERY  OROER  LEVEL  REPORT 
EFECTIVE  DATE:  851207 

The  following  Delivery  Order  Effective  Dates  exist  for  Site  40 


851207  841127  850404 

851020  851110 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  55 


DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue 
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SITE 

CLIN 

FEATURE! 

DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 

DESCRIPTION 

QTY 

UNIT  PRICE 

40 

0001 

000101 

SITE  POWER  PREPARATIONS 

1 

101386.00 

40 

0101 

010201 

NS-TXP,  2  MEG 

13 

86750.00 

40 

0102 

010301 

2  MEG  MEMORY 

13 

19800.00 

40 

0104 

013001 

0SP  WITH  6530 

1 

13387.50 

40 

0105 

013101 

CENTRONIX  PRINTER 

3 

1615.50 

40 

0106 

013201 

6530  CRT 

25 

2317.50 

40 

0107 

013202 

PRINTER  INTERFACE 

1 

409.50 

40 

0108 

015001 

PATCH  PANEL  CABINET 

3 

2250.00 

40 

0109 

015101 

SYSTEMS  CA8INET 

4 

14220.00 

40 

0110 

015201 

I/O  POWER  MODULE 

12 

3150.00 

40 

0109 

015301 

EXPANSION  CABINET 

1 

2250.00 

40 

0112 

016001 

DISC  PATCH  PANEL 

5 

697.50 

40 

0113 

016101 

THL  PATCH  PANEL 

1 

315.00 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

"> 

c 

697.50 

40 

0115 

016301 

SYNC  PATCHPANEL 

2 

o  9  7 . 5  0 

1 

Enter  C  to  continue  or  X  to  exit: 

C 

SCREEN  57 


DELIVERY  ORDER  LEVEL  REPORT 


Enter  site  number  for  which  the  report  is  j‘*sir**ii; 


Enter  C  tc  continue  or*  X  to  exit: 


SCREEN  58 


DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 


The  following  Delivery  Order  Effective  Dates  exist  for  Site  40 


8bi2u7  34 1 127  850404 

851020  851110 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  59 


DELIVERY  ORDER  LEVEL  REPURI 
EFFECTIVE  DATE:  851207 


U 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  60 


SITE  SERI 
EFFECTI 


The  following  Delivery  Orde 


851207 

851020 


Enter  C  to  con 
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SITE  SERIAL  NUMBER  REPORT 
EFFECTIVE  DATE:  851207 


SITE  CLIN  FEATURE# 


DESCRIPTION 


Enter  C  to  continue  or  X  to 


EFFECT 

DATE 

85120/ 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
851207 
exit:  C 


TOT  C0MPT  SERIAL 
QTY  QTY  NUMBER) 

I  i 
13  13 
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MAINTENANCE  DELIVERY  ORDER  GENERATION  PROGRAM 
Generate  maintenance  Oel ivery  Order  for  Site  Number: 

DISCOUNT  and  ESCALATION  RATES 


Values  input  are  added  to  one  (1)  to  generate 
the  correct  discount  or  escalation  rates 


LCN 

Hardware 

Maintenance 

E 

sea  1  at  ion 

Rate: 

0. 

100 

LCN 

Sof  tware 

Ma  intenance 

E 

seal  at  ion 

Rate : 

0. 

100 

SPLi 

ICE Net  Ma 

intenanco  D i : 

si: 

ount  Rate: 

n. 

.1100 

Sit. 

?  Ma  intern 

ince  Escalat 

IU 

n  Rate: 

0. 

822 

Fih 

?  name  to 

b  o  i  :n  po  r  t  ed 

i 

nto  LOTUS 

1-2-3: 

NEWU0 . 

PRN 
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MAILING  LABEL  GENERATION  PROGRAM 


Number  o 


f  copies  for  each  label:  01 


Site  Number:  01 


SPLICE  SITE  MAILING  LABELS 
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Before  using  the  integrated  Configuration  Management 
System,  make  a  backup  copy  of  all  five  disks.  Work  with  the 
backup  copy  and  store  the  original  disks  safely  away.  This 
will  allow  the  initial  files  to  be  restored  if  files  are 
erased,  damaged  or  an  accident  occurs. 

Before  the  integrated  Configuration  Management  System 
may  be  used,  it  must  be  installed  on  a  micro-computer. 
Installation  is  easily  accomplished  using  a  DOS  command 
batch  file  supplied  on  the  Initial  Startup  Disk.  Programs 
were  developed  on  an  IBM-PC  environment  and  tested  on  an 
IBM-PC  AT.  System  performance  on  other  than  a  100%  IBM 
compatible  configuration  is  unknown  and  without  guaruntee. 

The  integrated  Configuration  Management  System  must  be 
run  on  a  hard  disk  system  configuration.  This  is  a 
limitation  caused  by  the  size  and  number  of  dBASE  files 
which  are  part  of  the  system. 

The  integrated  Configuration  Management  System  consists 
of  five  disks,  one  installation  disk  and  four  system  disks. 
Each  disk  is  labelled  to  reflect  the  portion  of  the  system 
residing  on  each  disk.  The  label  identifies  the  directory 
where  the  system  files  must  be  loaded.  Three  directories 
will  be  created  during  the  installation  process  if  they  do 
not  already  exist.  These  directory  names  may  not  be 
modified.  System  execution  is  dependent  on  files  existing 
in  predefined  locations. 

Ensure  the  system  default  drive  is  the  hard  disk  where 
the  integrated  system  is  to  be  loaded  (ex:  C>  or  D> ,  etc.). 
Start  system  installation  by  placing  the  disk  labelled 
Initial  Startup  Disk  in  drive  A.  Type  the  command  STARTUP 
and  follow  the  instructions  and  messages  displayed  on  the 
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Table  of  Contents 


Record  of  Changes  - 

List  of  Effective  Pages  - 
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Overall  System  Data  Flow  Diagram  - 

Configurer  Data  Flow  Diagram  (Level  1) 
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Process  Description  Example  - 1 

Configurer  Structure  Chart  (Overview  -  Level  0)  1 
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Configurer  Structure  Chart  (Level  2)  -  1 

Module  Description  Example  -  1 

Pascal  Configurer  Record  Descriptions  -  I 

Configuration  Input  Data  File  (CONFIG. SIT)  -  ^ 

Input  Data  File  (COSTS. IN)  -  2 


Configuration  Management  System  Bachmann  Diagram  - 

dBASE  III  Data  Base  Structure  Descriptions  - 

dBASE  III  Configuration  Management  System  Indices 
Composition  - 

dBASE  III  Configuration  Management  System  Program 
Invocation  Sequences  - 

Pascal  SPLICE  Configurer  Program  Source  Code  - 

dBASE  III  Configuration  Management  System  Program  Module 
Source  Code: 
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CONFMOD .  PRG  -  102 

CONFREV .  PRG  -  104 

CONFUPD .  PRG  -  108 

DATERPTS . PRG  -  114 

DELAY.  PRG  -  116 

DESPMOD .  PRG  -  117 

DESPPREV . PRG  -  119 

DESPPUPD . PRG  - 123 

EQPDTNPC . PRG  -  130 

EQPDTPRC . PRG  -  140 

EQPPJRPT.PRG  -  150 

EQPSTRPT . PRG  -  155 

EQUIPCMD. PRG  -  161 

EQUIPREV . PRG  -  163 

EQUIPUPD.PRG  -  169 

MAINMENU . PRG  -  176 

MAINTDO .  PRG  -  179 

MANULADD . PRG  -  184 

MANULCMD. PRG  -  191 

MANULDEL . PRG  -  193 

MANULREV . PRG  -  198 

MANULUPD. PRG  -  204 

MKLABELS . PRG  -  211 

MNLSTRPT . PRG  -  216 

142 


NEWDOADD . PRG 
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-  2: 


NEWDC^MD . PRG  -  22 

NEWDOCVT . PRG  -  22 

PROJRPTS . PRG  -  2: 

REPORCMD . PRG  -  22 

SELECTOR. PRG  -  22 

SERNGBLD . PRG  -  2  A 

SERNOCMD . PRG  -  24 

SERNOREV . PRG  -  24 

SERNOUPD . PRG  -  22 

SITERPTS . PRG  -  26 

SNODTRPT . PRG  -  26 

SNOPJRPT.PRG  - 21 

SNOSTRPT . PRG  -  26 


OVERALL  SYSTEM  DATA  FLOW  DIAGRAM 


CONFIGURER  DATA  FLOW  DIAGRAM 

LEVEL  1 
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FILE  DESCRIPTION 


PROJECT:  SPLICE  CONFIGURER 
DATE:  3  September  1 985 


FILE  OR  DATABASE  NAME:  CONFIG. SIT 
ALIASES:  None 

COMPOSITION:  The  CONFIG. SIT  file  contains  the  site  specific 
data  associated  with  all  the  designated  Stock  Point 
Logistics  Integrated  Communications  Environment  (SPLICE) 
sites . 

ORGANIZATION:  Sequential.  The  structure  of  the  file  is  as 

f ol lows : 


DATA  ELEMENT 

Site  Number 
Site  Name 

Documentation  Site  Group 
Training  Site  Group 
Maintenance  Option 
Maintenance  Responsibility 
Site  Type 
Installation  Cost 


TYPE  VARIABLE 

Integer 

String 

Integer 

Integer 

String 

String 

String 

Real 


*  NOTES:  These  data  elements  are  not  currently 

designated  for  implementation,  but  are  specified  for  use  in 
later  revisions. 


1.  Site  Number  range  can  be  from  one  (1 )  to  sixty-two 
(62).  Current  only  fifty-six  (56)  sites  are  designated 
SPLICE  sites  and  is  the  upper  range  limit. 


2.  Documentation  Site  Group  is  used  to  restrict  the 
maximum  number  of  documentation  sets  that  each  site  is 
allowed  to  receive. 


3.  Training  Site  Group  is  used  to  restrict  the  maximum 


number  of  training  courses  that  each  site  is  allowed  to 
receive. 
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FILE  DESCRIPTION  (Continued) 


4.  Maintenance  Option  and  Maintenance  Responsibility 
are  used  together  to  establish  the  maintenance  repair  and 
response  times  desired  by  each  site. 

5.  Site  Type  restricts  various  hardware  options  to 
certain  designated  sites.  The  value  is  either  "S"  or  "m". 
"S"  designates  a  site  as  a  Stock  Point  which  can  receive  all 
hardware/software  options.  "M"  designates  a  site  as  a 
Multiple  Activity  Processing  System  (MAPS)  site  which  is  not 
permitted  to  receive  Local  Computer  Network 

(e.g.  HYPERchannel )  components. 

6.  Installation  Cost  is  a  one  time  cost  that  is  paid 
to  the  vendor  for  his  initial  site  survey  and  installation 
preparations . 
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DATA  FLOW  DESCRIPTION 


PROJECT:  SPLICE  CONFIGURER 
DATE:  3  September  1  985 

DATAFLOW  NAME:  Config_Data 


ALIASES:  None 


COMPOSITION:  The  data  represented  in  this  flow  is  the  data 
coming  from  the  input  file  "CONFIG. SIT" .  The  site  number 
selected  for  configuration  is  located  within  the  CONFIG. SIT 
file  and  site  unique  information  is  extracted.  This  unique 
site  configuration  data  is  then  used  to  create  the  site 
information  record.  This  record  is  used  to  determine  the 
maximum  limits  applicable  to  sites  under  configuration,  as 
specified  in  the  notes  to  the  CONFIG. SIT  file  description. 
The  site  information  record  also  is  used  to  determine  which 
repair  and  maintenance  options  are  to  be  selected  and  serves 
to  restrict  certain  types  of  options  from  being  selected, 
depending  upon  the  sites  type  designation.  The  Site 
Preparations  Charge  is  taken  from  the  CONFIG. SIT  file  and 
input  as  the  first  entry  in  the  COSTTABLE  array. 

NOTES:  The  user  was  previously  prompted  for  the  number  of 
the  site  to  be  configured. 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  12 


PROCESS  DESCRIPTION 


PROJECT:  SPLICE  CONFIGURER 
DATE:  3  September  1 985 

PROCESS  NAME:  Build  Cost  Array 

PROCESS  NUMBER:  1.2 
PROCESS  DESCRIPTION: 

1  .  Take  a  feature  number  for  each  element  resident  in 
the  input  cost  file  and  place  it  in  a  feature  number  field 
in  the  cost  array. 

2.  Take  a  contract  line  item  number  for  each  element 
resident  in  the  input  cost  file  and  place  it  in  a  contract 
line  item  number  field  in  the  cost  array. 

3.  Take  a  nomenclature  description  for  each  element 
resident  in  the  input  cost  file  and  place  it  in  an  item 
description  field  in  the  cost  array. 

4.  Take  the  unit  maintenance  costs  from  the  input  cost 
file  and  place  it  in  the  fourth  element  of  the  cost  array. 

5.  Take  the  unit  purchase  price  from  the  input  cost 
file  and  apply  a  discount  rate  specified  by  the  user.  Place 
the  result  in  the  fifth  element  of  the  cost  array. 

6.  Take  the  unit  installation  cost  from  the  input  cost 
file  and  apply  an  escalation  rate  specified  by  the  user. 
Place  the  result  in  the  sixth  element  of  the  cost  array. 

7.  Take  the  basic  monthly  maintenance  rate  from  the 
input  cost  file  and  apply  an  escalation  rate  specified  by 
the  user.  Place  the  result  in  the  seventh  element  of  the 
cost  array. 
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PROCESS  DESCRIPTION  (Continued) 


NOTES:  The  cost  array  mentioned  on  the  previous  page  is  a 
two  dimensional  memory  array.  The  array  contains  an  entry 
for  every  line  item  identified  on  the  Automated  Data 
Processing  Selection  Office  (ADPSO)  SPLICE  contract.  The 
maximum  number  of  entries  expected  is  two  hundred.  This 
estimate  is  based  upon  the  maximum  number  of  possible  line 
items  that  may  exist  for  available  selections.  The  site 
cost  array  structure  is  planned  as  follows: 


CONFIGURER  STRUCTURE  CHART 


CONFIGURER  STRUCTURE  CHART  -  LEVEL  2 


PRINT  SOFTWARE 
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MODULE  DESCRIPTION 


SPLICE  DESIGN 

DATE:  3  September  1 985 


MODULE  NAME:  Pr int_Sof tware 

MODULE  PURPOSE:  This  routine  writes  software  related 
contract  line  item  numbers  (CLINs)  to  the  output  disk  file. 
It  invokes  global  procedure  LINE_SETUP  to  generate  the  CLIN 
and  accumulate  section  and  appropriation  totals.  The  global 
variable  Quantity  is  used  to  compute  the  CLIN  extended  price 
and  installation  costs.  The  procedure  is  not  used  in 
maintenance  computations. 

INPUT:  None. 

OUTPUT:  CLIN  related  data  elements  written  to  output  disk 

file  are: 


Line_Number 

String- 

7 

CostTable [ I ] 

. f eatureno 

String- 

8 

CostTablet I ] 

.descript 

String-28 

Quantity 

Integer- 

3 

CostTable [ I  ] 

.  purchprice 

Real  -  1  3  , 

2 

decimals 

Extended  Price 

Real- 1 2 , 

2 

decimals 

CostTable[ I ] 

.  basemaint 

Real-  9, 

2 

decimals 

Maint_Factor 

Real-  8, 

3 

decimals 

Maint_Months 

Integer- 

5 

CostTable [ I ] 

.basemaint  * 

Real-  9, 

2 

decimals 

Maint_Factor 

*  Maint  Months 

CostTable [ I ] 

. instcost 

Real-  8, 

2 

decimals 

CostTablet I ] 

.instcost  * 

Real-  9, 

2 

decimals 

Quantity 

Downtime  Credit 

Real-  9, 

2 

decimals 

CostTablet I ] 

.basemaint  * 

Real-  9, 

2 

decimals 

Quantity  *  Maint_Factor 
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MODULE  DESCRIPTION  (Continued) 


PROCEDURAL  DESCRIPTION: 

Begin  [Print  Software] 

CASE  Type_Sof tware  of 

1 :  Begin  {  Per  Processor  Software  } 

Maint_Factor  =  Momaint_Esc_Cost 
Extended_Price  =  Quantity  *  CostTable 

End 

2:  Begin  {  Per  Site  Software  } 

Maint_Factor  =  Momaint_Esc_Cost 
Extended_Price  =  CostTable [ I ]. purchpr ice 

End 

3:  Begin  {  NETEX  Software  } 

Maint_Factor  =  1 

Extended_Price  =  CostTable [ I ]. purchpr ice 

*  Quantity 

End 

END  [End  of  CASE  Statement] 

CALL  LINE_SETUP 

Compute_System_Downtime_Component  *  See  Notes 

*  Compute_Downtime_Credit  *  See  Notes 

Write_CLIN_Data_Elements_to_Output_Disk_File 
End  [Print  Software] 
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MODULE  DESCRIPTION  (Continued) 


VARIABLES: 

PROGRAM  GLOBALS:  See  CONFIGURE_SITE  module  description 

MODULE  LOCALS:  None. 

PROCEDURE  LOCALS: 

1:  Type_Sof tware  -  Integer,  parameter  list 

variable,  Range:  1-3,  code  controlling  which  values  are 
assigned  to  the  variables  Maint_Factor  and  Extended  Price. 


NOTES : 

1.  Computation  for  System_Downtime_Component : 
System_Downtime_Component  +  ( Maint_Factor  * 

Quantity  *  Cost Table [ I ] . basemaint ) 

2.  Computation  for  Downtime_Credit : 

( ( (CostTable [ I ] . purchprice  +CostTable [ I ] . instcost ) 
/48)  +( CostTable[ I ]. basemaint  *  Maint_Factor ) ) 

*  0.005 
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PASCAL  CONFIGURER  RECORD  DESCRIPTIONS 


1.  COSTS. IN  -  file  contains  the  individual  contract  line 
items  which  appear  as  line  items  on  the  generated  delivery 
order . 


COLUMN 

POSITION 

FIELD 

LENGTH 

DATA  ELEMENT  DESCRIPTION 

01  -04 

4 

Contract  Line  Item  Numbe: 
(CLIN) 

05 

1 

Blank  (Filler) 

06-1  1 

6 

Contract  Feature  Number 

1  2 

1 

Blank  (Filler) 

1  3-39 

27 

Component  Description 

40-48 

9 

Basic  Contract 
Maintenance  Rate 

49 

1 

Blank  (Filler) 

50-60 

1  1 

Basic  Contract  Purchase 
Price 

61 

1 

Blank  (Filler) 

62-69 

8 

Basic  Contract 
Installation  Rate 

70-80 

1  1 

Blank  (Filler) 

NOTE:  All  data  elements  are  left  justified.  This  file  is 

read  into  a  memory  array  ( COSTTABLE ) .  The  data  elements  are 
modified  by  the  discount  and  escalation  rates  entered  by  the 
user.  The  file  is  maintained  in  Contract  Feature  Number 
sequence,  with  two  exceptions.  T-Text  and  TRANSFER  line 
items  are  not  in  Contract  Feature  Number  sequence.  Use 
extreme  care  when  adding  components  and  corresponding  line 
items  in  the  source  code.  Line  items  are  identified  in  the 
source  code  by  using  comments.  An  example  of  a  comment  is 
{  1=6  Serial  Printers  }. 
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PASCAL  CONFIGURER  RECORD  DESCRIPTIONS  (Continued) 


2.  CONFIG. SIT  -  file  contains  site  specific  information 
used  to  determine  several  factors  required  in  the 
configuration  process. 


COLUMN  FIELD 

POSITION  LENGTH  DATA  ELEMENT  DESCRIPTION 


01  -02 

2 

Site  Number 

03-30 

28 

Site  Name 

31 

1 

Documentation  Site  Group 

32 

1 

Blank  (Filler) 

33 

1 

Training  Site  Group 

34 

1 

Blank  (Filler) 

35-38 

4 

Maintenance  Option 

39 

1 

Blank  (Filler) 

40 

1 

Maintenance  Responsibility 

41 

1 

Blank  (Filler) 

42 

1 

Site  Type  (Stock  Point  or 
MAP  Site) 

43 

1 

Blank  (Filler) 

44-49 

6 

Installation  Cost 

50-80 

31 

Blank  (Filler) 

NOTE:  All  data  elements  are  left  justified.  Site  specific 

information  is  read  into  a  memory  array  (SITEINFO).  The 
file  is  maintained  in  site  number  sequence.  Site 
installation  costs  were  obtained  from  NAVSUP  SPLICE 
personnel.  Installation  costs  reflect  costs  originally 
specified  in  the  SPLICE  contract.  If  these  costs  are  not 
correct  or  are  revised,  update  the  site  preparation  charges 
in  CONFIG. SIT  prior  to  running  the  configurer. 
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1 

01 

ASO  PHILADELPHIA,  PA 

2 

2 

X 

A 

S 

81735.0 

2 

02 

FMSO  MECHANICSBURG ,  PA 

1 

2 

III 

B 

S 

93939.0 

3 

03 

FMSO  MECHANICSBURG,  PA 

4 

4 

I 

F 

M 

56721.0 

4 

04 

MCAS  CHERRY  POINT,  NC 

3 

3 

VIII 

C 

M 

70860 . 0 

5 

05 

MCAS  EL  TORO,  CA 

3 

3 

I  I 

D 

M 

76473.0 

6 

06 

MCAF  QUANTICO,  VA 

4 

4 

P 

F 

M 

59748 . 0 

7 

07 

MCAS  YUMA,  AZ 

4 

4 

I 

F 

M 

59748.0 

8 

08 

NAC  INDIANAPOLIS,  IN 

4 

4 

P 

A 

M 

59748.0 

9 

09 

NARDAC  JACKSONVILLE,  FL 

2 

2 

V  I  I  T 

A 

S 

1 88471 . 0 

0 

1  0 

NARDAC  NEW  ORLEANS,  LA 

2 

2 

P 

A 

S 

73918.0 

1 

11 

NARDAC  NORFOLK,  VA 

2 

2 

VIII 

A 

S 

7491 3.0 

2 

1  2 

NARDAC  PENSACOLA,  FL 

2 

2 

VIII 

A 

S 

76523.0 

3 

1  3 

NARDAC  SAN  DIEGO,  CA 

2 

2 

VIII 

A 

s 

74829.0 

4 

1  4 

NARDAC  SAN  FRANCISCO,  CA 

2 

2 

VIII 

A 

s 

75967 . 0 

5 

1  5 

NARDAC  WASHINGTON,  DC 

4 

4 

p 

F 

s 

59748 . 0 

6 

1  6 

NAS  BARBERS  POINT,  III 

4 

4 

I 

F 

M 

59748 . 0 

7 

1  7 

NAS  BRUNSWICK,  ME 

4 

4 

I 

F 

M 

59748 . 0 

8 

1  8 

NAS  CECIL  FLIELD,  FL 

4 

4 

I 

F 

M 

59748 . 0 

9 

1  9 

NAS  KEY  WEST,  FL 

4 

4 

I 

F 

M 

59748.0 

0 

20 

NAEC  LAKE  HURST,  NJ 

4 

4 

I 

F 

M 

59748 . 0 

1 

21 

NAS  MEMPHIS,  TN 

4 

4 

I 

F 

M 

59748.0 

2 

22 

NAS  MIRAMAR,  CA 

4 

4 

I 

F 

M 

59748 . 0 

3 

23 

NAS  OCEANA,  VA 

4 

4 

I 

F 

M 

59748.0 

4 

24 

NAS  PENSACOLA,  FL 

4 

4 

1 

F 

M 

59748.0 

5 

25 

NAS  WHIDBEY  ISLAND,  WA 

3 

3 

p 

D 

M 

68448.0 

6 

26 

NATC  PATUXENT  RIVER,  MD 

3 

3 

II 

D 

M 

63841 .0 

7 

27 

PMTC  POINT  MUGU ,  CA 

4 

4 

I 

F 

M 

59748 . 0 

8 

28 

NAVDAF  Corpus  Christi,  TX 

4 

4 

I 

F 

M 

59748.0 

9 

29 

NAVDAF  GREAT  LAKES,  IL 

4 

4 

I 

F 

M 

59748 . 0 

0 

30 

NAVDAF  LEMOORE,  CA 

4 

4 

I 

F 

M 

59748 . 0 

1 

31 

NAVDAF  MOFFETT  FIELD,  CA 

4 

4 

I 

F 

M 

59748.0 

2 

32 

NAVDAF  ORLANDO,  FL 

4 

4 

I 

F 

M 

59748 . 0 

3 

33 

NRCC  LONG  BEACH,  CA 

4 

4 

I 

F 

S 

57816.0 

4 

34 

NRCC  NEWPORT,  RI 

4 

4 

1 

F 

S 

5781 6 . 0 

5 

35 

NRCC  PHILADELPHIA,  PA 

4 

4 

I 

F 

s 

57816.0 

6 

36 

NRCC  WASHINGTON,  D.C. 

4 

4 

I 

F 

s 

57816.0 

7 

37 

NUWES  KEYPORT,  WA 

4 

4 

r 

F 

M 

59748.0 

8 

38 

NAVSTA  Mayport,  FL 

4 

4 

i 

F 

M 

59  7  48 . 0 

9 

39 

NSC  CHARLESTON,  SC 

2 

2 

V  I  I  i 

A 

S 

78279.0 

0 

4  0 

NSC  NORFOLK,  VA 

2 

2 

V 

A 

s 

1018  86. 0 

1 

4  1 

NSC  OAKLAND,  CA 

2 

2 

V 

A 

s 

a  4  6  4  6 . 0 

2 

42 

NSC  PEARL  HARBOR,  HI 

'I 

2 

v  1 1  r 

A 

s 

89493 . 0 

3 

43 

NSC  PUGET  SOUND,  WA 

2 

0 

c. 

VIII 

A 

s 

89493.0 

4 

4  4 

NSC  SAN  DIEGO,  CA 

2 

2 

V 

A 

s 

95520 . 0 

5 

4  5 

NSD  GUAM 

3 

3 

V  L  1 

F 

s 

101821.0 

6 

4  6 

NSD  SUBIC  BAY,  PI 

3 

3 

P 

E 

s 

10  28  3  5. 0 

7 

4  7 

NSD  YOKOSUKA,  JAPAN 

3 

3 

V  I  I 

E 

s 

I 088 36.0 

8 

48 

NS Y  PHILADELPHIA,  PA 

4 

4 

I 

E 

M 

6«  748  .  O 

9 

4  9 

NSr  PORTSMOUTH,  Nil 

4 

4 

I 

E 

M 

5  o  7  1 8.0 

0 

50 

NTC  SAM  DIEGO,  (’A 

4 

4 

! 

F 

M 

5  9  7  18 . 0 
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CONFIG. SIT  Program  Listing 


51 

51 

52 

52 

53 

53 

54 

54 

55 

55 

56 

56 

57 

57 

58 

58 

SPCC  MECHANICSBURG ,  PA 
SUBASE  KINGS  BAY,  GA 
SUBASE  NEW  LONDON,  CN 
SUBASE  PEARL  HARBOR,  HI 
SWFPAC  BREMERTON,  WA 
TRF  BANGOR,  WA 
SWFPAC  KINGS  BAY,  GA 
TRF  KINGS  BAY,  GA 


2 

2 

X 

A 

S 

95520 . 0 

4 

4 

VIII 

D 

M 

59748 . 0 

4 

4 

I 

F 

M 

59748 . 0 

4 

4 

I 

F 

M 

59748.0 

3 

3 

VI 

E 

M 

88507.0 

4 

4 

p 

E 

S 

88507 . 0 

3 

3 

VI 

E 

M 

88507 . 0 

4 

4 

p 

E 

S 

88507 . 0 

160 
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1 

0001 

0001 01 

SITE  POWER  PREPARATIONS 

0.0 

0 . 0 

0 . 0 

2 

0101 

01 0201 

NS-TXP ,  2  MEG 

439.2 

96400.0 

700 . 0 

3 

0102 

010301 

2  MEG  MEMORY 

89 .06 

22000 . 0 

113.0 

4 

0103 

01 2401 

FLTG  PT  ARITH 

2000 . 0 

10  0. 0 

5 

0104 

01 3001 

OSP  WITH  6530 

198.86 

1  4875.0 

3  0  0.0 

6 

0105 

013101 

CENTRONIX  PRINTER 

30 . 0 

1795.0 

0 . 0 

7 

0106 

01 3201 

6530  CRT 

35.38 

2575 . 0 

100. 0 

8 

01  07 

01 3202 

PRINTER  INTERFACE 

2.44 

4  5  5.0 

0 . 0 

9 

01  08 

01 5001 

PATCH  PANEL  CABINET 

0 . 0 

2500 . 0 

4  00.0 

1  0 

01  09 

015101 

SYSTEMS  CABINET 

202.52 

1 5800 . 0 

600.0 

1  1 

0110 

01 5201 

I/O  POWER  MODULE 

48 . 8 

3500 . 0 

600 . 0 

1  2 

0109 

01 5301 

EXPANSION  CABINET 

0.0 

2  500.0 

4  0  0. 0 

1  3 

0112 

01 6001 

DISC  PATCH  PANEL 

0 . 0 

775.0 

75.0 

1  4 

0113 

016101 

THL  PATCH  PANEL 

0.0 

350 . 0 

0 . 0 

5 

0114 

01 6201 

ASYNC  PATCH  PANEL 

7.  32 

775.0 

75.0 

1  6 

01  1  5 

01  6301 

SYNC  PATCHPANEL 

7.  32 

775.0 

75 . 0 

1  7 

1101 

110101 

DISC  CONTROLLER 

70.76 

10500. 0. 

200 . 0 

1  8 

1  201 

1 20201 

DISC,  WINCHESTER,  128MB 

123.22 

1  9500 . 0 

32  5.0 

1  9 

1  202 

1 20301 

DRAWER,  WINCHESTER,  128MB 

123.22 

1  6500.0 

325.0 

20 

1  301 

1 30201 

DISC,  MOVING  HEAD,  240MB 

253.76 

26500 . 0 

450.0 

21 

1  401 

1 40201 

DISC,  WINCHESTER,  540MB 

395.28 

39500 . 0 

62  5.0 

22 

2101 

210101 

TAPE  CONTROLLER 

41.48 

6100.0 

10  0.0 

23 

2102 

21 0201 

TAPE  DRIVE/FORMATTER 

469.7 

47500 . 0 

4  7  5.0 

24 

24 

240101 

CARD  RDR/PNCH 

191.0 

20442.0 

75  .  0 

25 

24 

240201 

CARD  READER 

56.12 

5600 . 0  , 

175.0 

26 

2701 

2701 01 

LP/CR  CONTROLLER 

24 . 4 

2800 . 0 

188.0 

27 

2702 

270201 

1000  LPM  PRINTER 

202 . 52 

20000 . 0 

10  0.0 

28 

27 

270301 

600  LPM  PRINTER 

202 . 52 

1  4000 . 0 

100. 0 

29 

31 

310101 

INTRPROC  BUS ( INCL.W/01 0101 ) 0 . 0 

0 . 0 

0 . 0 

30 

31 

310201 

FIBER  OPTIC  LINK  CNTRL 

610.00 

35000 . 0 

4  50.0 

31 

31 

31 0202 

FIBER  OPTIC  CABLES 

0.0 

3750.0 

0 . 0 

32 

3201 

320101 

TANDEM/ P-E  HC  ADAP 

215.0 

38940 . 0 

0 . 0 

33 

3202 

320102 

HC  ADAPTER  2ND  TRUNK  CiTE  4 

28.0 

4705.0 

0 . 0 

34 

320  3 

320201 

HC  CABINET  (3  ADAP) 

14.0 

3760 . 0 

0 . 0 

35 

3204 

320301 

THL  CONTROLLER 

194.22 

1  4  90  0 . 0 

3  0  0 . 0 

3  6 

3207 

320400 

I1C  TRUNK,  500  FT. 

0 . 0 

4  0  0.0 

0 . 0 

37 

3207 

320401 

IIC  TRUNK,  1000  FT 

0 . 0 

800 . 0 

O . 0 

38 

32 

320402 

HC  TRUNK,  1 500  FT. 

0 . 0 

3075 . 0 

0 . 0 

39 

32 

320403 

HC  TRUNK,  2500  FT. 

0.0 

62  50 . 0 

0  .  <1 

40 

32 

320404 

HC  TRUNK,  4000  FT. 

0.0 

12600. 0 

O  .  P 

41 

32 

320405 

HC  TRUNK,  5000  FT. 

0 . 0 

22  -’50 . 0 

{ 1  .  : 

4  2 

330  1 

330101 

BURROUGHS  HTC  HC 

215.0 

38  4  40 . 0 

n  #  -1 

43 

3  302 

330201 

BURROUGHS  DI,r  HC 

2  15.0 

58  4 4  0 . 0 

0 . 0 

44 

3  30  3 

330301 

ECRDIC- ASCII  RAM 

16.0 

3  2  ,3  5 . 0 

(1  .  II 

45 

34 

340301 

HC  PROC  I / F ( P.E. / INTERDATA) 1 9 .0 

406(i .  o 

n  .  P 

46 

36 

3601 01 

HC  ADATPER  (IBM  360/370) 

215.0 

3051 s  .  0 

P  .  '.) 

47 

37 

370101 

HC  ADAPTER ( UN  I  VAC  1  100,4 90 ) 

215.0 

38  4  in  .  n 

n  .  n 

48 

41 

410101 

HC  ADAPTER (FIPS  DEVICE) 

2  1  5 . 0 

3^8  |  8 . 0 

n  .  p 

49 

42 

420301 

HC  PROC  I/F  (MINI -COMPUTER) 

1  9  .  o 

4000  .  O 

O.n 

50 

4  501 

4  5  01  01 

ASYNCII  CNTR 

21  .  0  6 

16  0  0 . 0 

1  2  r  .  1  > 
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51 

4502 

4501 02 

ASYNCH  EXTENSION  BOARD 

26.84 

4300 . 0 

188.0 

52 

4503 

4501 03 

AUTOMATIC  CALLING  UNIT 

8.19 

1540.0 

0 . 0 

53 

4504 

450301 

COMM  SUBSYSTEM  BASE 

160.0 

23673.0 

630.0 

54 

4505 

450302 

BASE  ADD-ON 

124.0 

19374.0 

500 . 0 

55 

4506 

450303 

RS-232  LIU/CABLE 

12.0 

1869.0 

157.0 

56 

4507 

450304 

6100  CABLE/ 30M 

0 . 0 

145.0 

0 . 0 

57 

4508 

450305 

6100  CABLE/ 4  5M 

0 . 0 

160.0 

0 . 0 

58 

4509 

450306 

6100  CABLE/ 60M 

0 . 0 

175.0 

0 . 0 

59 

4601 

460101 

BIT  SYNCH  CNTR 

50 . 02 

6059.0 

125.0 

60 

4602 

460201 

BYTE  SYNCH  CNTR 

35 . 38 

5800.0 

100.0 

61 

4701 

470101 

COMM. PATCH  PANEL/LINE  MON 

140.4 

6653.0 

100.0 

62 

4702 

470201 

ARCLI 

7 . 02 

5145.0 

5 . 0 

63 

5101. 

510101 

GUARDIAN  OS 

158.6 

3500 . 0 

125.0 

64 

5102 

510201 

BATCH  SUBSYSTEM 

61.0 

4444.0 

0 . 0 

65 

5103 

510301 

FDC  SYS  UTILITIES 

125.0 

1000.0 

0 . 0 

66 

5201 

520101 

ENCOMPASS 

323 . 3 

8000 . 0 

150.0 

67 

5202 

5201 02 

ENABLE  (P/O  5201  01  ) 

67 . 1 

1 500 . 0 

0.0 

68 

5203 

520103 

ENFORM  ( P/O  .5201 01 ) 

85 . 4 

2000 . 0 

0 . 0 

69 

5204 

520104 

PATHWAY  ( P/O  5201  01  ) 

103.7 

2500.0 

0 . 0 

70 

5205 

5201 05 

TMF  ( P/O  5201 01  ) 

122.0 

2500 . 0 

0.0 

71 

5206 

520106 

DDL  (P/O  5201  01  ) 

36 . 6 

500.0 

0.0 

72 

5207 

5201 07 

FDC  TPS  SAS 

240.0 

3500.0 

0 . 0 

73 

5308 

5301 02 

ENSCRIBE  (P/O  510101  ) 

0.0 

0 . 0 

0.0 

74 

5309 

530103 

SORT/MERGE  (P/O  510101) 

0.0 

0.0 

0.0 

75 

5310 

530104 

FUP ( F ILE  UTIL  PRG , P/05 1 0 1 0 1 0 . 0 

0 . 0 

0.0 

76 

5311 

5301 05 

PUP ( PERIP  UTL  PRG, P/05101010.0 

0 . 0 

0.0 

77 

531  2 

530106 

BACKUP /RESTORE (P/O  510101) 

0.0 

0 . 0 

0.0 

78 

5  313 

5301 07 

FILE  SYSTEM  SECURITY 

600 . 0 

5000 . 0 

0 . 0 

79 

531  4 

530108 

SYSTEM  CARD  READER  SUPPORT 

0 . 0 

0 . 0 

0 . 0 

80 

5401 

540201 

SPOOLER  ( P/O  510101  ) 

24.4 

500 . 0 

0 . 0 

81 

5502 

550102 

ENVOY  ( P/O  510101  ) 

0 . 0 

0 . 0 

0 . 0 

82 

5502 

550103 

CUP ( COM  UTL  PRG, P/O  510101)0.0 

0.0 

0 . 0 

83 

5503 

550201 

EXPAND 

122.0 

2000 . 0 

50 . 0 

84 

5504 

550301 

EXCHANGE  RJE  HASP 

24 . 4 

500 . 0 

50.0 

85 

5505 

550401 

AM3270  ACCESS  METHOD 

24  .  4 

500 . 0 

50 . 0 

86 

5506 

550501 

X25  ACCESS  METHOD 

24 . 4 

500 . 0 

50 . 0 

87 

5507 

550601 

HYPER  LINK  ACC  MD ( P/05  1 0 1 0 1 0 . 0 

0 . 0 

0 . 0 

88 

5508 

550602 

LCN  FUP  SUPPORT 

0 . 0 

0.0 

0 . 0 

89 

5  5  0  9 

550701 

DELETED  FDC  CRT  SUPPORT 

350 . 0 

1 3  000 . 0 

0 . 0 

90 

55  10 

550702 

6100  ATP 

27.0 

4  3  0. 0 

50 . 0 

91 

5  5 

550703 

6100  BSC 

2  7 . 0 

430 . 0 

50 . 0 

92 

55 

550704 

6100  ADCCP 

27 . 0 

4  30.0 

50 . 0 

93 

55 

550705 

6100  TINET 

27 . 0 

4  3  0. 0 

50.0 

94 

5528 

550706 

BURR  POLL/SELECT 

27 . 0 

4  30.0 

8  0 . 0 

95 

5530 

550707 

SNAX  AND  SNAX/HLS 

27 . 0 

4  30.0 

10  2.0 

9  6 

5528 

550708 

TR  3271 

54 . 0 

860 . 0 

78.0 

97 

5530 

550709 

AM  6520 

27.0 

4  30.0 

5  0 . 0 

9  8 

55 

550710 

FDC  SNA  INTERFACE  PACKAGE 

3  50 . 0 

84000 . 0 

0 . 0 

99 

55 

55071 1 

FDC  D LA NET  INTERFACE  PKG 

40  0 . 0 

25000 . 0 

0 . 0 

1  00 

55  11 

550801 

BURROUGHS  HTC  NETEX 

156.4 

!  o  1  .0 

O  .  0 

162 
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101 

5512 

550802 

DELETED  HTC  PRESENTATION 

450.0 

0 . 0 

0 . 0 

102 

55 

550803 

CIP,  BURROUGHS  HTC 

450 . 0 

22500 . 0 

0 . 0 

103 

55 

550901 

BURROUGHS  DLP  NETEX 

6  80.0 

7  2  0.0 

0 . 0 

104 

55 

550902 

DELETED  DLP  PRESENTATION 

450.0 

0.0 

0 . 0 

1  0  5 

55 

550903 

CIP,  BURROUGHS  DLP 

450.0 

22500.0 

0 . 0 

1  06 

55 

551 001 

PE  3200  NETEX 

680 . 0 

725.0 

0 . 0 

107 

55 

551002 

DELETED  PE3200  PRESENTATN 

450.0 

0.0 

0 . 0 

1  08 

55 

551003 

CIP,  PERKIN-ELMER 

4  50.0 

22500.0 

0 . 0 

1  09 

55 

551101 

IBM  NETEX 

80  0 . 0 

0  50 . 0 

0.0 

1  1  0 

55 

551102 

DELETED  IBM  PRESENTATION 

150.0 

0 . 0 

0  .  0 

1  1  1 

55 

551103 

CIP,  IBM  MVS 

450.0 

22500 . 0 

0 . 0 

1  1  2 

55 

551201 

UNIVAC  1100  NETEX 

800 . 0 

850.0 

0 . 0 

1  1  3 

55 

551 202 

DELETED  UNIVAC  1100  PRESEN 

450.0 

0 . 0 

0 . 0 

1  1  4 

55 

551203 

CIP,  UNIVAC 

450.0 

22500.0 

0 . 0 

*1  1  5 

5520 

551 301 

TANDEM  NETEX 

326 . 4 

816.0 

0 . 0 

1  1  6 

5521 

551 302 

DELETED  TANDEM  PRESENTAT ION 4 5 0 . 0 

0 . 0 

0 . 0 

1  1  7 

55 

551 303 

CCP,  TANDEM 

550 . 0 

27500 . 0 

0 . 0 

1  1  8 

55 

551 304 

CEM,  TANDEM 

475.0 

22500.0 

0 . 0 

1  1  9 

5522 

551401 

DELETED  DDN  INTERFACE 

24  .  4 

500 . 0 

0 . 0 

1  20 

5523 

551 402 

DELETED  DDN  SVC  INTERFACE 

350.0 

1 3  000 . 0 

0 . 0 

121 

55 

551 403 

DDN  INTERFACE  SUBSYSTEM 

750.0 

32000 . 0 

0 . 0 

1  22 

55 

551 500 

NETWORK  MGMNT  FACILITY  GRP 

324.0 

13200.0 

0 . 0 

123 

55 

551 501 

NMF  BASE  FACILITY 

180.0 

6000.0 

1'  .  0 

124 

55 

551 502 

NMF  PERFORMANCE  MONITORING 

75.0 

3500 . 0 

0 . 0 

1  25 

55 

551503 

NMF  DIAGNOSTIC  MONITORING 

75 . 0 

3  500 . 0 

0 . 0 

1  26 

55 

551 504 

NMF  ACCOUNTING  APPLICATION 

7  5.0 

3500.0 

0 . 0 

127 

6101 

610102 

EDIT  ( P/O  510101 ) 

0 . 0 

0 . 0 

0 . 0 

1  28 

6102 

610103 

TGAL  (P/O  510101) 

0 . 0 

0 . 0 

0 . 0 

1  29 

6103 

610201 

FILE  COM PARS ION  UTILITY 

0.0 

0 . 0 

n.o 

1  30 

6201 

621001 

COBOL 

85.4 

50D  .  0 

50  . 

1  31 

62 

622001 

TALI P/O  510101  ) 

0 . 0 

0 . 0 

0 . 0 

1  32 

62 

623001 

BLOCK  STRUCTURED  LANGUAGE 

61.0 

17  0.0 

5 1/  . 

1  33 

62 

624001 

FORTRN - ANS I  78 

73.2 

500 . 0 

30  . 

1  34 

62 

626u01 

BINDER  (P/O  510101) 

0 . 0 

0 . 0 

0.0 

1  35 

62 

627001 

ENFORM  (P/O  510101) 

85 . 4 

20  00 . 0 

0.0 

1  36 

62 

627002 

DDI,  (P/O  510101) 

3  6.6 

500 . 0 

o.o 

1  37 

62 

628001 

BINDER  ( P/O  5 1 0 1 0 1  ) 

0 . 0 

o .  0 

1 )  .  0 

1  38 

6  2 

629001 

FUP  ( P/O  510101 ) 

0.0 

0 . 0 

0  .  o 

1  39 

62 

629002 

EDIT  ( P/O  510101 ) 

0 . 0 

0 . 0 

o  .  0 

1  4  0 

6  3 

630101 

BINDER  ( P/O  510101  ) 

0 . 0 

0 . 1 ) 

0 . 0 

1  4  1 

6  3 

630 1 02 

OSP  ( P/O  510101 ) 

0 . 0 

n.o 

n  .  n 

1  42 

6  3 

6301 03 

ENCORE  (P/O  510101) 

0 . 0 

0 . 0 

0 . 1 1 

1  43 

6  3 

630104 

XREF  (P/O  510101) 

0 . 0 

o  .  1) 

ii  .  i ) 

1  44 

6  3 

630105 

LOAD!'  ILE  (P/O  510  10  1) 

0  .  n 

0 . 0 

o.O 

1  45 

64 

6  4  0  1  0  1 

X  R  A  Y  (P/O  5)0101) 

0 . 0 

0.0 

n  .  o 

1  46 

64 

640301 

ENABLE  (P/O  510101) 

67.1 

1  S( ' ; )  .  1 ) 

I)  .  ! > 

1  47 

6  5 

650101 

RUNT  I  ME  MON  SYS  (P/O  5101010.0 

O.o 

0.0 

1  48 

6  6 

6601 01 

TANDEM  D  I  AG  SBS  YS  (  P /o5  1  0  1  0  1  0  . 

o.o 

o.o 

1  4  9 

860  1 

86010! 

TRANSFER 

i  j  >.  .  o 

, 1  !  Ill  '  !  .  II 

o.o 

1  50 

8  6  0  2 

86020 1 

T  -  TEXT 

<j  .  i) 

0.0 

o.o 

163 
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1  51 

67 

670101 

1  52 

68 

6801 01 

153 

7101 

710101 

1  54 

|  7201 

7201 01 

155 

7301 

730101 

1  56 

7401 

7401 01 

1  57 

XXXX 

39XXXX 

1  58 

XXXX 

3 9 XXXX 

1  59 

XXXX 

39XXXX 

160 

XXXX 

3 9 XX XX 

161 

XXXX 

XXXXXX 

1  62 

XXXX 

XXXXXX 

163 

XXXX 

XXXXXX 

1  64 

XXXX 

XXXXXX 

165 

XXXX 

XXXXXX 

166 

XXXX 

XXXXXX 

167 

XXXX 

XXXXXX 

1  68 

81 

810101- 

1  69 

81 

81 0201 

1  70 

82 

8201 01 

1  71 

83 

8301 01 

1  72 

84 

8401 01 

173 

85 

850101 

1  74 

89 

890100 

175 

90 

9001 01 

1  76 

91 

910101 

177 

92 

920101 

1  78 

93 

9301 01 

179 

94 

940101 

1  80 

95 

9501 01 

181 

96 

960101 

182 

96 

960201 

183 

9  7 

970101 

1  84 

98 

9801 01 

1  85 

99 

991001 

1  86 

99 

992001 

187 

99 

993001 

1  88 

99 

994001 

CNF IG  MGT  QURY  &  RPT  1  T/CHO.O 
SFTWRE  CTL  QRY  S  RPT  1  T/CHO.O 
COMPUTER  OPERATIONS  MAN  SETO . 0 
SYSTEMS  PROGRAMMER  MAN  SET  0.0 


HARDWARE  MANUAL  SET  0.0 

PROGRAMMERS  REF  MAN  SET  0.0 

TRAINING  GROUP  I  0.0 

TRAINING  GROUP  II  0.0 

TRAINING  GROUP  III  0.0 

TRAINING  GROUP  IV  0.0 

OPERATOR  TRAINING  0.0 

HARDWARE  OVERVIEW  0.0 

SYSTEMS  RESOURCE  MGT  0.0 

SYSTEMS  TUNING  AND  XRAY  0.0 

DATA  COMMUNICATIONS  0.0 

TAL  0.0 

SPLICENET  MIGRATION  WORKSIIPO  .  0 
PM  ON-CALL  0.0 

PRVT  MAINT  FOR  PER/CALL  SITO.O 
ON-CALL  MAINTENANCE  0.0 

PER-CALL  MAINTENANCE  0.0 

EMERGENCY  PER-CALL  MAINT  160.0 


NETWORK  ADMN  COMP ( P /05 50 2 0 1  0 . 0 
TPS  SIMULATION  (P/O  520101)0.0 
TPS  APPL.  INT  (P/O  520101)  0.0 
TPS  NTWK  INTFCOMP (P/05201010.0 
DSTB  TPS  PROC  CMP< P/O520 1 0 1 0 . 0 
INTGRTED  DDL  CMP(P/0  5201010.0 
TPS  RECOVERY  CMP(P/0  5201010.0 
ENVISION  ( P/O  510101)  0.0 

CONTRACTOR  PERS  SUP  ( P/ PERS653  3 . 0 
SPLICENET  MIGRATION  SUPPORTO.O 
CNFG  MGT  DATA  &  RP(MTH  COSTO . 0 
CONTRACTOR  TRAVEL  COSTS  0.0 
PRE- INST  TEST  FAC. (SEE  NOTEO.O 
REMOTE  BATCH  TERML (SEE  NOTEO.O 
INTERACTIV  TERM  ACC  SEE  fJQTO  .  0 
HAND  ON  TEST  FAC  SEE  NOTE  0.0 


95000 . 0 
9000 . 0 
427.00 
607.0 
375.0 
437.0 
268637 . 0 
1  64271  .  0 
89655 . 0 
21 909.0 
14109.0 
7000 . 0 
20000.0 
1 5000 . 0 
1  0000 . 0 
15  0  00. 0 
8000 . 0 
0 . 0 
0.0 
0 . 0 
0.0 
0 . 0 
0 . 0 
0 . 0 
0.0 
0 . 0 
0 . 0 
0 . 0 
O  .  0 


0.0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 


0 . 0 
0 . 0 
0 . 0 
0 . 0 
0.0 
o .  o 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0  .  o 
0 . 0 
0 . 0 
0 . 0 
0 . 0 
0 . 0 


0 . 0 

0 . 0 

0 . 0 

0 . 0 

O 

o 

CO 

0 . 0 

4500 . 0 

0 . 0 

0 . 0 

.  0 

0 . 0 

o  .  0 

0 . 0 

0 . 0 

0 . 0 

0.0 

0 . 0 

n  .  o 
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CONFIGURATION  MANAGEMENT  SYSTEM 
BACHMAN  DIAGRAM 


DESCRIPTION 
DATA  BASE 
DESCRIP.DBF 


SERIAL  NUMBER 
DATA  BASE 
SERIALNO.  DBF 


MANUAL 
DATA  BASE 
MANUAL.  OBF 
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dBASE  III  DATA  BASE  STRUCTURE  DESCRIPTIONS 


Structure  for  database  : 
Date  of  last  update  : 

Field  Field  Name 

CONFIG. DBF 

12/21 /85 

Type 

Width 

1 

SITENO 

Character 

2 

2 

SITENAME 

Character 

50 

3 

SITECO 

Character 

20 

4 

SITENAMEFL 

Character 

40 

5 

SITEADD1 

Character 

40 

6 

SITEADD2 

Character 

40 

7 

SITECITY 

Character 

40 

8 

SITESTATE 

Character 

2 

9 

SITEZIP 

Character 

1  0 

1  0 

SITETYPE 

Character 

4 

1  1 

MAINTOPT 

Character 

4 

1  2 

MAINTRESP 

Character 

1 

**  Total 

Record  Width  in 

Characters  ** 

253 

Structure  for  database 

:  DESCRIP. DBF 

Date  of 

last  update 

:  12/08/85 

Field 

Field  Name 

TYPe 

Width 

1 

FEATURENO 

Character 

6 

2 

CLIN 

Character 

4 

3 

DESCIPT 

Character 

30 

4 

MODELNO 

Character 

1  0 

5 

FDCMODEL 

Character 

1  5 

6 

TYPECOMPON 

Character 

1 

7 

BASEMAINT 

Numeric 

7 

8 

NOTES 

Memo 

1  0 

Dec 


Dec 


2 


**  Total  Record  Width  in  Characters  ** 


83 
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Structure  for  database 
Date  of  last  update 

Field  Field  Name 


EQUIP. DBF 

01 /08/86 


mm 


Width 


1 

EFFDATE 

Character 

6 

2 

SITENO 

Character 

2 

3 

FEATURENO 

Character 

6 

4 

UNIT  PRICE 

Numeric 

1  1 

5 

MO  MAINT 

Numeric 

1  1 

6 

UNIT  INSTA 

Numeric 

8 

7 

QTY 

Numeric 

3 

**  Total 

Record  Width  in 

Characters  ** 

47 

Structure  for  database  : 

MANUAL. DBF 

Date  of 

last  update  : 

01/11 / 86 

Field 

Field  Name 

Width 

1 

SITENO 

Character 

2 

2 

FEATURENO 

Character 

6 

3 

MANLDESC 

Character 

24 

**  Total 

Record  Width  in 

Characters  ** 

32 

Structure  for  database  : 
Date  of  last  update  : 
Field  Field  Name 

SERIALNO. DBF 

01/08/86 

Type 

Width 

1 

EFFDATE 

Character 

6 

2 

SITENO 

Character 

2 

3 

FEATURENO 

Character 

6 

4 

QTY 

Numeric 

3 

5 

TOTQTY 

Numeric 

3 

6 

SERIALNO 

character 

8 

**  Total 

Record  Width  in 

Characters  ** 

28 
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dBASE  III  DATA  BASE  STRUCTURE  DESCRIPTIONS  (Continued) 


Structure  for  database 
Date  of  last  update 

Field  Field  Name 


TED . DBF 

07/18/85 


Width 


1 

FILLER1 

Character 

2 

SITENO 

Character 

3 

CLIN 

Character 

4 

FILLER2 

Character 

5 

FEATURENO 

Character 

6 

FILLER3 

Character 

7 

DESCIPT 

Character 

8 

FILLER4 

Character 

9 

QTY 

Numeric 

1  0 

FILLER5 

Character 

1  1 

UNIT  PRICE 

Numeric 

1  2 

FILLER6 

Character 

1  3 

TOT  PRICE 

Numeric 

1  4 

FILLER7 

Character 

1  5 

MO  MAINT 

Numeric 

16 

FILLER8 

Character 

1  7 

MAINT  FAC 

Numeric 

1  8 

FILLER9 

Character 

1  9 

MAINT  MOS 

Numeric 

20 

FILLER1 0 

Character 

21 

TOT  MAINT 

Numeric 

22 

FILLER1 1 

Character 

23 

UNIT  INSTA 

Numeric 

24 

FILLER1 2 

Character 

25 

TOT  INSTAL 

Numeric 

26 

FILLER1 3 

Character 

27 

COMP  DT  CR 

Numeric 

28 

FILLER1 4 

Character 

29 

SYS_DT_CR 

Numeric 

**  Total 

Record  Width 

in  Characters  ** 
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dBASE  III  Configuration  Management  System 

INDICES 

COMPOSITION 

DATA  BASE 

FILE  NAME 

INDEX  NAME 

INDEX  KEY  COMPOSITION 

CONFIG. DBF 

CONFIG. NDX 

SITENO 

DESCRIP. DBF 

DESCRIP. NDX 

FEATURENO 

EQUIP. DBF 

EQUIPS IT . NDX 
EFEAT.NDX 
EQUIPSD . NDX 
EQUIPDAT . NDX 
EQUIPPRJ . NDX 

SITENO 

FEATURENO 

SITENO  +  EFFDATE 

SITENO  +  FEATURENO 

EFFDATE  +  SITENO  +  FEATURENO 

MANUAL. DBF 

MANULSIT . NDX 

SITENO  +  FEATURENO 

SERI ALNO. DBF 

SERNOSIT . NDX 
SERNODAT . NDX 
SERNOFEA.NDX 
SERNOPRJ . NDX 

SITENO 

SITENO  +  EFFDATE 

SITENO  +  FEATURENO 

EFFDATE  +  SITENO  +  FEATURENO 
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PROGRAM  INVOCATION  SEQUENCES 


DATA  LOAD 

SELECTOR. PRG 
MA INMENU . PRG 
NEWDOCMD . PRG 
NEWDOCVT . PRG 
NEWDOADD . PRG 
SERNOBLD. PRG 


CONFIGURATION 
FILE  MAINTENANCE 

SELECTOR. PRG 
MAINMENU . PRG 
CONFMOD . PRG 
CONFUPD . PRG 
CONFREV . PRG 


PROJECT 
LEVEL  REPORTS 

SELECTOR . PRG 
MAINMENU . PRG 
REPORCMD. PRG 
PROJRPTS . PRG 
EQPPJRPT. PRG 
SNOPJRPT. PRG 


MAINTENANCE 
DELIVERY  ORDER 


EQUIPMENT 

FILE  MAINTENANCE 

SELECTOR . PRG 
MAINMENU. PRG 
EQUIPCMD. PRG 
EQUIPUPD . PRG 
EQUIPREV . PRG 


MANUAL 

FILE  MAINTENANCE 

SELECTOR. PRG 
MAINMENU. PRG 
MANULCMD. PRG 
MANULADD. PRG 
MANULUPD . PRG 
MANULDEL. PRG 
MANULREV. PRG 


SITE  LEVEL  REPORTS 

SELECTOR. PRG 
MAINMENU. PRG 
REPORCMD. PRG 
SITERPTS . PRG 
EQPSTRPT. PRG 
MNLSTRPT. PRG 
SNOSTRPT. PRG 


LABEL  GENERATION 


DESCRIPTION 
FILE  MAINTENANCE 

SELECTOR. PRG 
MAINMENU. PRG 
DESPMOD . PRG 
DESPPUPD. PRG 
DESPPREV. PRG 


SERIAL  NUMBER 
FILE  MAINTENANCE 

SELECTOR . PRG 
MAINMENU. PRG 
SERNOCMD. PRG 
SERNOUPD. PRG 
SERNOREV. PRG 


EFFECTIVE  DATE 
LEVEL  REPORTS 

SELECTOR. PRG 
MAINMENU. PRG 
REPORCMD. PRG 
DATERPTS . PRG 
EQPDTPRC. PRG 
EQPDTNPC. PRG 
SNODTRPT. PRG 


SELECTOR . PRG 
MAINMENU. PRG 
MAINTDO. PRG 


SELECTOR. PRG 
MAINMENU. PRG 
MKLABELS . PRG 
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1  Program  SPLICE_CONFIGUR£R  (Textin,  Input,  Output); 

2 

g  ^  ***********  +  ******************************************************•**  j 


4  i  Title  :  SPUCEjJonf igurer  1 

5  (  Authors  :  LCDR  Robert  L.  Beard,  III,  SC,  USN  ) 

6  (  LCDR  Winston  M.  Buckley,  SC,  USN  ) 

7  (  LCDR  Edward  J.  Case,  SC,  USN  ! 


8  (  Purpose  :  To  be  used  by  Naval  Supply  Systems  Caimand,  SUP  0473,  ) 

9  l  personnel  as  the  principal  means  to  configure  new  Stock  1 

10  (  Point  Logistic  Integrated  Carcmini cat ions  Environment  ) 

11  (  (SPLICE)  sites.  In  later  versions  additions  will  lie  ) 

12  l  made  to  assist  in  preparing  augmentations  to  existing  ! 

13  {  sites,  as  well  as  prepare  annual  renewal  delivery  orders  1 


14  (  for  existing  sites  ) 

15  {  ! 

16  {  Developed:  04  October  1985  ) 

17  (  Updated  :  07  December  1985  ) 


18  (  ********* **************************************** **** ******** t +  * t *  + *  j 

19 

2Q  (  I**********************************************  *******  *******  **  +  +  t  t*  t  } 

21  (  General  Comnents:  This  program  is  being  designed  as  an  "expert"  '  1 

22  (  system.  It  will  use  a  series  of  "rules  of  thumb"  to  develop  and  I 

23  (  maintain  SPLICE  configurations  at  62  sites  throughout  the  world.  I 

24  (  The  SPLICE  configurations  developed  to  date  have  been  done  by  hand  I 

25  (  and  have  required  extensive  "hand  message"  by  technical,  financial,  I 

26  (  and  contractor  personnel  to  ensure  their  accuracy.  This  has  proven  ) 

27  (  to  be  both  costly  in  terms  of  dollars  and  man[jower.  By  prompting  ) 

28  {  the  user  tor  key  information,  this  "expert  system"  will  develop  ) 

29  1  technically  accurate  configurations,  cost  them  out,  and  pre;«re  the  I 

30  (  final  delivery  orders.  ) 

32 

33  {  The  tol Lowing  constants,  type  and  variable  declarations  are  used  by  the 

34  Software  Bottling  Cf<«| .my  of  New  York  screen  generation  program  "SCREEN 

35  SCUU’IUR".  ’  ) 

36 

37 

38  ’lYie 

39  STK2  =  SIRING |  2  I ;  SIR8U  -  STRJNGI  80  1 ;  SIR79  =  STRING179I; 

40  res-SS  =  (staySS,  prevSS,  oxitSS,  nextSS); 

11  j 

42  |  Const  Copyng)itSS= '  (C)Copyright  1984,  'Die  Software  Bottling  Company  <  >1  New  York'; 
4  3 1  l  ID  NOT  REMOVE  The  Above  Copyright  Notice 

44 1  I'his  Program  may  not  lie  used  without  the  ntiove  Copyright  Not  ire  I 

45  | 

46  j  Const, 

4  J I  I  Esc,  Up  Arrow  Key,  lett  Arrow  Key  ,  Page  Up  Key  j 

48  j  escSG-027;  uSS-'ll1;  1SS='K';  puSS=  '  1  1  ; 

49 1  l  Blank,  Down  Arrow  Key,  Right  Ar  row  Key,  Page  Down  Key  I 

60  hl,mkSS='  dSS='P';  rSS-'M';  ixISS^'i.i*  • 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
9  3 
94 
96 
96 
“7 

98 

99 
10D 


1  Function  keys  F1-F10  1 

f1SS=';';  £2SS=’<’;  £  3SS= '  = ' ;  f4SS='>';  f5SS='?'; 

£6SS='ia';  f7SS='A';  f8SS='B';  f9SS='C';  flOSS='D'; 

retSS  :  STR2="; 


Var 

answerSS  :  Strinq  [11; 
rangeSS  :  STR80; 

BeepOnSS,  last_f leidSS,  retrieveSS  :  BOOLEAN; 
actionSS,  Lastf ield_actionSS  :  resSS; 
hiSS,  loSS  ;  REAL; 

vtypeSS,  screenSS,  screen_£ieldSS,  varSS  :  INTEGER ; 


(  The  following  constants,  type  and  variable  declamations  are  used  by  I  he 


SPLICE  configurer. 

Type 

Op_Mode  =  (Hard,  Soft,  Document, 

Title  =  String  [191; 

Names  =  Array  [ 1  ..121  o£  String 

CostType  =  Record 

featureno  :  String  ( 6  J ; 
clin  :  String  [61; 

descript  :  String  127); 
manaint  :  Real; 
purchprice:  Real; 
instcost  :  Real; 
basemaint  :  Real; 

End;  [  Record  CostType  I 


Train,  Maint,  Other); 

(  Defines  major  components  categories  I 

[9); 

(  Record  tor  cost  data  array  1 
I  contract  feature  number  1 
(  contract  line  item  numtier  1 
I  contract  item  description  1 
(  monthly  maintenance  w/  escalation  1 
(  purchase  price  w/  discounts  I 
(  installation  cost  w/  escalation  I 
[  basic  monthly  maintenance  cost  i 


SiteType  =  Record 


siteno 
sitename 
documentation 
training 
inaint_opt  ions 
maint  response 
s i to  type 
site  inst  cost 


Integer; 
String  [271; 
Integer; 
lute  ior ; 
String  [41; 
String  I  1  I ; 
Sti i ng  I  1  I ; 
Rea  1 ; 
teType  | 


l  Record  tor  site  specific  informal  ion  1 
(  Site  number  I 
(  Site  name  I 

(  Dncmnenl  at:  ion  class  t  egu  i  re.  1  I 
I  Training  class  required  1 
I  Currently  not  used  ) 

I  Current  [y  not  used  | 

!  Iyin-MAPS  site  |M|  or  Gtix'k  Point  [Si  ! 
[  Site  installation  cost  w/o  esc. 1 1  1  ■  1 1  ton! 


Const 

F i I  el  -  'Costs. IN' ; 

Ft  le2  ■-  'Coni  ig.SIT'  ; 
Fi  le.1  -  'S[)l  ico.snC  ; 


!  Name  .  >1  cost  .  lat  a  t  i  1  ••  I 
(  Name  o[  site  coni  i  iural  i.>n  til" 
(  i  lame  i  .1  si  a  eon  n:i  i- 1.  •  I  i  I  <  ■  i 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 
113 
1  14 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

1  321 
1  331 
1  341 
I  351 
1  361 
I  371 
1  381 
1  391 
1  40 1 


Month_Name  :  Names  =  ('January  ',  'February  ',  'March  ',  'April  ', 

'May  ',  'June  ',  'July  ',  'August  ', 

'September',  'October  ',  'November  ',  'December  '); 


Var 


Mode  :  Op_Mode;  (  Subscript  for  Totals  ) 

Sitelnfo  :  SiteType;  (  Record  containing  site  specific  info  ! 

Subtotals  :  Array  [0..5]  of  Array  [1..3]  of  Real; 

(  Three  subtotals  for  each  section  ( 
Totals  :  Array  (0..51  of  Array  [1..2]  of  Real; 

{  OPN  &  OMN  Totals  for  each  section  I 
CostTable  :  Array  [1..200]  of  CostType; 

(  Array  of  updated  COSTS. IN  file  info  I 
CardRdr,  LIU,  Processors,  THYPERchannels  :  Integer; 

Mamt_Months,  NETEX_Months ,  DDN_SW_Months  :  Inteqer; 

AMO,  A150,  A220,  A400,  A5I0,  AXXX,  I,  Quantity  :  Integer; 

System_Downtime_Ccrnponent,  Downtime_Credit,  Maint_Factor  :  Real; 

Qnerg_Maint_Rate,  Extended_Price,  Mcinaint_Esc_Rate  :  Real; 


Stock_Point 
Screen! lie 
Site_Preps 
Day 
Year 

Line_N umber 
Month 

PRN_F i le_Name 
Diskf ile 


Char; 

File; 

String 

String 

String 

String 

String 

String 

Text; 


[I  I 
[21 
[41 
[61 
[91 
[12 


{  Variables  for  character  responses  I 
[  File  of  Screen  linages  ) 

(  Yes  or  No  user  response  variable  1 
(  Effective  Day  of  Delivery  Order  ) 

(  Effective  Year  of  Delivery  Order  I 
(  Contract  Line  Item  Number  i 
(  Effective  Month  of  Delivery’  Order  ) 
(  Output  LOTUS  . PRN  file  ) 

(  Output  Delivery  Order  File  I 


($V-,C-,R-1  {  Pascal  Directives  used  by  SCREEN  SCULPTOR.  See  Compiler  Manual 
($1  SPLICE1 . PAS  Include  Procedures  In  This  File  by  SCREEN  SCULFIOR.  I 
I  SCREEN  SCULPrOR(C) 

(C)  COPYRIGHT,  THE  SOFTWARE  BOTTLING  COMPANY  OF  NEW  YORK,  1984,  1985 
**  Turbo  Pascal  Version,  Trade  Mark  Of  E3oriand  International  ) 


ITPE 


RECPACKSS  =  record 

AX,  BX,  CX,  DX, 
end ; 


BP,  SI,  Dl,  DS,  ES,  Flags:  INTEGER; 


Mil  VAR  legsSS  :  RECPACKSS; 

1  421 
1431 

144  I  TYPE 

MSI  video  jxnnterSS  -  array!  1  ..  3840  |  ot  CHAR; 

1461 

1471  VAR 

1481  1  Video  Variables  Set  By  SLT_VIIJEO_TYPE  procedure  ( 
1491  vc 1 1 orSS ,  votfSS,  vonSK:  byte; 

1501  vdispSS:  INTEGER; 
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1511  videoSS:  "video_pointerSS; 

1521 

1531  PROCEDURE  BEEPIBeepOn:  BOOLEAN); 

1541  BEGIN 

1551  if  BeepUn  then  wri telchr ( 7 ) ) ; 

1561  END; 

1571 

1581 

1591  PROCEDURE  COLOR)  foregr  ,backqr:  BYTE); 

1601  {  Select  current  color  by  setting  Foreground  and  Background 
1611  Any  values  between  0  and  15  are  acceptable.  See  Tech  Ref  Manual 
1621  } 

1631  BEGIN 

1641  if  backgr>7  then  foregr : =foregr+ 1 6 ; 

1651  TextColor ( foreqr 1 ; 

1661  Text-Background  (backgr  1 ; 

1671  END;  (  COLOR  I 
1681 
1691 

1701  PROCEDURE  WRITEC) vtext :  STP80); 

1711  BEGIN 

1721  write) vtext 1 ; 

17  31  END;  i  WR 1  TEC  1 

1  741 

1751 

1761  PROCEDURE  CI£AR_KBD; 

1771  '  Clear  Typ®  Ahead  Characters  Fran  Keytjoard  1 
1781  VAR  kchar;  CHAR) 

1791  BEGIN 

1801  while  key-pressed  do  read(kbd,kchar) ; 

1811  END;  (  CLEAR_KBD  1 
1821 
1831 

1841  FUNCTION  SET_MDNnUR_TYPE:  INTEGER; 

1851  (  Determine  The  Type  Of  Monitor  Being  Used  I 
1861  VAR  j  :  INTEGER ; 

1871 

1881  PROCEDURE  CURSOR_SET; 

1891  {  Set  Cursor  Size  ) 

1901  VAR  vl ,v2,v3  :  INTEGER; 

1911  BEGIN 

1921  if  )-2  then 

19  31  begin 

1R4I  vl : -$3d4 ; 

1951  v2:=S3d5; 

1  °6  i  v  3:  -  $  3d9 
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201 1 

v2 

:  =$3b5 ; 

2021 

v3 

:  =$3b9 

2031 

end; 

2041 

if  (j=2)  or  (j=3)  then 

2051 

Ixxjin 

2061 

port! vl J 

=$0A;  port[v2):=0; 

(  Set 

High  Cursor  Scan  Line 

2071 

port[vl ) 

=$0B;  port(v2):=7; 

1  Set 

Low  Cursor  Scan  Line 

2081 

port! v3  1 

=  1  ; 

!  Set 

Border  Color  to  BLUE 

2091 

end; 

2101 

END;  (  CURSOR  SET  ) 

2111 

2121 

BEGIN 

21  31 

j :=mem[ $40 

: $ 1 0 ] ;  (  Figure  out 

tlie  monitor  type  ) 

2141 

3 : = ( 3  and  1 

$0030)  DIV  16; 

2151 

CASE  ]  OF 

2161 

0 :  1  jeq  i  1 1 

wri  teln!  1  1 1  lejal  Monitor 

Mode');  hall  end; 

2171 

1 :  bey  in 

(  Set  40  column  color  to 

80  column  color  ) 

2181  wriloln( 'Use  MODE  command  to  set  to  BO.  (  MUUE  iUHO  )');  lult 

2191  end ; 

2201  2:  videoSS:  =ptr(  $1)800 ,0 ) ;  (  Graphics  80  ) 

2211  3:  videoSS:  =ptr  (  $1)000,0 ) ;  {  Monochrane  1 

2221  END; 

2231  voffSS:=$l;  vonSS:=$29;  vdispSS:  =  $3d8;  t  Video  Off,  On,  Ixxration  1 
2241  CURSOR_SET;  I  Set  To  A  La rye  Cursor  ) 

2251  COLOR! 14,1);  {  Set  Default  Color  ) 

2261  SET_M0N1TOR_TYPE:=1 ; 

2271  END;  (  SLT_MONriOR_TYPE  ) 

2281 

2291 

2301  PROCEDURE  D1SPI AY_SCREEN  (var  screenfile  :  FILE); 

231 1  (  Load  Screen  From  Disk.  Display  To  Monitor  I 
2321  VAR  bload :  array! 1  . .3968 1  of  CHAR; 

2331  exist  :  Boolean; 

2341 

2351  PROCEDURE  VIDEO  OFF;  I  Turn  Video  Oil  ) 

2361  BEGIN  port l vdispSS ) : =vof fSS;  END; 

2371 

2381  PROCEDURE  VIDEOJJN;  I  'IYirn  Video  On  ) 

2391  BEGIN  port! vdispSS I : =vonSS;  ENU; 

2401  BEGIN 

2411  if  IOresuit-0  then 

2421  tiegm 

2431  exist: =TRUE; 

2441  bhx'kread  (srteenl.  l  h',  bload|l|,  11); 

2451  VIUEOJ1FF; 

2461  move  (bload|8),  vidi‘i'SS~ ,  )840); 

2471  VIDEO  ON; 

2481  end 

2491  else  exist  :  •fAIGE; 

2601  it  not  exist  Hii'ii 
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251  I 
2521 
2531 
2541 
2551 
2561 
2571 
2581 
2591 
2bOI 
261  1 
2621 
2631 
2641 
2651 
2661 
2671 
2681 
2691 
2701 
2/1  I 
2721 
27  31 
2741 
2751 
2761 
2771 
2781 
2791 
2801 
281  I 
2821 
2831 
2841 
2851 
2861 
2871 
2881 
2891 
2901 
291  I 
2921 
2931 
2941 
2951 
2961 
2971 
2981 
2991 
3001 


begin 

color  (15,  4 )  ; 
gotoxy  (25,  13); 

write  (”G,  'Part  of  SPLICE. SCR  is  missing.'); 

end ; 

retSS  :=  '  '  ; 

END;  (  DISPLAY_SCREEN  } 


(  See  SCREED  SCULPIOR  Manual  For  A  Description  Of  GET ITEM  i 


PROCEDURE  GETITEMI 

COL,LIN,LEN  : 

BYTE; 

1TYPE  : 

QIAR; 

VAR 

WITEM  : 

STR80 ; 

PICT  : 

STR80 ; 

ITEM  LOW, ITEM  HIGH  : 

STR80 ; 

VAR 

RET  : 

SIR  2; 

RETRIEVE  : 

BOOLEAN 

FGR  COLOR, BGR  COLOR 

:  BYTE 

) ; 


TYPE 

PICr_TYPE  =  set  of  CHAR ; 

CONST 

conf irm=FALSE;  (  If  FALSE  auto-skip  to  next  field  when  field  is  filled 
1= '  K ' ;  r= ' M ' ;  u=’H';  d='P';  dU'S';  ins='R';  pu='l’;  pd=V; 

(  Define  The  Function  Keys  I 
1 1  = '  ; ' ;  f 2= ' <  ’ ;  f 3= '  =  ' ;  f 4  = ’ > ' ;  f5= ' ?' ; 
f6='0‘;  f 7= 'A' ;  f8='B';  f9='C';  f10='0'; 
special_keys:  PICT_TYPE  =  [ 1 , r , u,d,dl , ins. pu, pd J ; 
pict_elements:  PICT_TYPE  -  ('  X'  ,'  IJ  9 ','  8 '  I ; 

bk:  BYTE=8;  esc:  BYTE- 2 7 ;  cr:  13YTE=1  3; 


VAR 

hcol ,pcol , tcol ,pict_dec, itemjJec, tempbl , tempb2,plen, i len:  BYTE; 

kchar:  str2;  range_check,clear25:  IKXiLEAN; 

check, end_of_f ield,begin_of_f ield,sign  flag, 

special ,dec_f lag, valid  char:  U0()!,EAN; 

temp_item,  item:  STR80; 

tcliar:  Q1AR ; 

FUNCTION  DATE_C! U2CK  ( da teva r :  STE80  ) :  IX X 1LEAN ; 
i  Checks  Foi  Date  Validity  Excluding  the  following: 

Does  not  check  Leap  Years.  If  datevar  is  correct  then  DATE  CIILCV,  i:--  I VI 41 
CONST 

month  days:  array  |  1  . .  I  2 )  ol  INTO  HR- (  31  ,28,  31  ,  30,  31,  30,  0,  ■'  I  ,  :n,  !  ,  !u, 
VAR  inn,i.fd,yy:  STR2; 

mini  ,dd  i ,  yy  i  :  INTEGER ; 
error:  INTEGER; 
ch  date:  BOOLEAN; 
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301  I  BEGIN 

3021  if  ord(datevar[0  1 )  < >8  then 
3031  DATE_CHECK: =EALSE 

3041  else 
3051  begin 

3061  ch_date:=TRUE; 

3071  inrn:  =copy( datevar ,  1  ,  2  )  ; 

308 1  dd :  -copy  ( datevar  ,4,2); 

3091  yy :=copy (datevar, 7 , 2 ) ; 

3101  val (mjn,»imi , error )  ; 

3111  if  (error<>0)  or  ( mnii  <  1  )  or  ( mini  >12)  then  ch_date:  =FALSE; 

3121  if  ch_date  tlien 
3131  begin 

3141  val  ((id, ddi , error ) ; 

3151  if  (error<>0)  or  (ddil)  or  (ddi  >inonUi_days(nmu  )  )  tlien  ch_d.it. <>; -I'AliiE; 

3161  end; 

3171  if  cli_date  tlien 
3181  begin 

3191  vallyy, yyi, error) ; 

3201  if  error' '0  then  chjlate: =FALSE; 

3211  end; 

3  2  2 1  DATE_CI  1ECK ;  =  ch_da  te ; 

3231  end; 

3241  END;  I  I ’W  XJEDUKE  DATE_CI  IECK  ) 

3251 

3261  FUNCTION  C1IECK_DATE( DATE,  DATE  UJW,  L)ATE_II IGII;  S'lPSO ) :  BOOLEAN; 

3271  (  Check  Validity  If  Date  and  whether  it  falls  between  lew  and  high  ) 

3281  (  If  low  range  date  is  luger  than  (ugh  range  date  then  we  assume  I 

3291  (  we  crossed  centuries  eg.  09/09/84  'a  01/01/10  ) 

3301  (  Also  a  null  date  is  ignored  ) 

331  I  CONST  dnull  =  1  /  /  ' ; 

3321  VAR  ctijiate:  BOOLEAN; 

3331  BEGIN 

334  1  if  date<>dnull  tlien  ch_date:  =DATH_C1  IECK  (date )  el  so  cli_dat  e:  =TRUE; 

3351  if  ch_date  and  (date<  ><Jnul  1 )  and  (date_low< ‘dim  1 1 1  and  (<late_)iiuh'  <  Inn  1  1  )  then 
336  1  liegin 

1371  if  rli  date  then  ell  date:  =DATE_CIIECK(dat  <■>  lew); 

3  38  1  if  eh  dale  tlien  ch_date:-DATE  Cl  IECK  (date  high); 

3391  if  chjlnte  then 

34<)I  begin 

3411  dal  e;  u.-opy  (date,  7 , 2  )  iropy  (t)at  e,  1  ,6  )  ; 

342  1  date  iow;  -ropy  (date  iow,  7, 2 )  .copy  (d.i!  •  •  i.  •*,  ’  ,<•) ; 

34  3  1  date  high:  -  copy  (flat  ojngli ,  7,2)  ♦copy  h  iat  •->  I  in  ill ,  1  ,<■ )  ; 

3441  if  (date  low- -date  lugti)  tlien  !  D  w  Dale  •  Hi  ill  Dale 

3451  I.  Min 

3461  :!  (date' date  lew)  or  (dale  date  iuali)  tlien  eg  tale;  i'.M.d: 

347  1  .‘lid  "1  ;;e  |  I'lM  lilt"  '  III  lil  Pile 

3481  li  (date  date  low)  and  (dale  dale  In  ill)  then  eh  .  lal  -I'AI  dl : ; 

3491  end; 

350  1  »,!,]; 


1  77 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  41 

SPLICE. PAS- include  file  SPLICE  I .PAS  Proyrain  Listing 


Page  8 


3511  if  ch_date  then  CHECK_DATE : =  TRUE  else  begin  CHECK_DATE : =F ALSE ;  end; 

3521  END;  {PROCEDURE  CHECK_DATE } 

3531 

3541  FUNCTION  CUECK_RANGE ( VAR  item,  item_low,  itemhiqh:  STR80 ) :  BOOLEAN; 

3551  {  Check  to  see  whether  item  is  within  and  including  low  and  high  ) 

3561  VAR  itemr,  lowr,  higirr:  REAL; 

3571  erron,  errorl,  errorh:  INTEGER; 

3581  BEGIN 

3591  CHECK_RANGE:=TRUE; 

3601  val ( item_low, lowr , errorl ) ; 

3611  val (item  high, highr, errorh) ; 

3621  val( item, itemr, errori ) ; 

3631  if  (errorl=0)  and  (errorh=0)  and  (errori-0)  then 
3641  begin 

3651  if  itemr < lowr  then  CHECK_RANGE: =FALSE 
3661  else  if  itemr>highr  then  CIIECK_RANGE:  =FAISE; 

3671  end  else 

3681  Cl  1ECK  _RANGE :  =  FALSE ; 

3691  END;  {  PROCEDURE  CHECK JRANGE  } 

3701 

371 r  PROCEDURE  MESSAGE (mess_num:  BYIE ) ; 

3721  (  Displays  A  Message  On  Line  25  and  sets  global  clear25  to  TRUE  I 
3731  VAR  mess,  temp_item:  STR79;  mess_tength,  start_col:  INTEGER; 

3741  BEGIN 

3751  color  (14,1);  yotoxy  (1,  25);  clreol; 

3761  case  mess_num  of 

3771  1:  mess:='  Only  0  thru  9  Allowed 

3781  2:  mess:='  Only  0  thru  9  or  a  space  Allowed  '; 

3791  3:  mess:*'  BAD  Date  OR  Not  Within  ' +item_low+ '  S'* 

3801  item_hiyh* ’ .  Use  (Dell  To  Blank  Out  Digits.  '; 

3811  4:  mess:  =  '  Number  Not  Within  '  *  i  tem_low+ '  S  '  *-item_hiyh+ '  Range 

3821  5:  mess:*'  Only  0  thru  9,  decimal  point  OR  -  sign  Allowed  '; 

3831  6:  mess:*'  Only  Y  or  N  Allowed  '; 

3841  7:  mess:*'  Only  M  or  F  Allowed  '; 

3851  8:  mess:*'  No  More  Room  For  Digits.  Use  IDeiJ  key  to  remove  '; 

3861  9:  mess:*'  Mo  S[*ice  For  Negative  M'mibers.  input  Positions  Must.  He  !«ipi«i 

3871  end;  I  case  ) 

388 1  mess_ Length : =ord(mess[  0 | ) ; 

3891  start_col : * ( 79-mess_leng th )  D1V  7; 

3901  clear25:  ='IRUE; 

391  I  yotoxy ( start _col ,25) ; 

3921  COLOR ( 15,  4); 

3931  write! 'G,  mess); 

394 1  yotoxy  I  licol ,  1  i  n ) ; 

3951  COLOR  (14,  1 ) ; 

3961  CLEARKBIJ; 

1 971  END;  I MKGNAOK  I'lTX'lj’jt  T'Ki 
398 1 

i'TH  FI  INCHON  oiru’iiAiU-'t  CHAR;  VAR  kch.ir  :  :TP2  )  :lv  <  tl.FAi); 

‘1011!  !  i)  OKIIUAR-™ it;  ’ >n  :eturn  1  ) i* -r i  kchnr-  ))  r  d  u  dl  in  t-u  it)’. 
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401 1  (  if  GETCHAR=FALSE  on  return  then  kchar  is  alpha  numeric  chars  I 
4021  (  ctype  must  be  one  of  the  following) 

4031  {  U=(Jppercase,  L=Lower  Case,  X=Any  Char,  9=0.. 9,'  ',  #=0..9,-,*,.  i 
4041  (  GETCHAR  will  filter  out  any  control  characters  ! 

4051  TYPE  PIcr_TYPE  =  set  of  CHAR; 

4061  CONST  esc  =  27;  cr  =  13;  bk  =  8; 

4071  1=’K';  r=’M' ;  u=’H';  d='P‘;  dl='S';  ins='R';  pu=  1 1 '  ;  pd=  V  ; 

4081  f 1 = ' ; 1 ; f 2= 1 < ' ;  f 3= ' = ' ;  f4=’>';  f5='?'; 

4091  f 6= ’ 3 ' ;  f7= ’ A' ;  f 8= ' B ' ;  f9='C';  f10='D’; 

4101  special_keys:  PICT_TYPE  =  [ 1 ,r,u,d,dl, ins,pu,pd ] ; 

4111  func_keys:  PICT_TYPE  =  ( f 1 , f2, f 3, f 4, f 5, f 6, f 7, f 8, f 9, f 1 0 ) ; 

4171  var  str:  CHAR:  special .correct:  BOOLEAN; 

4131  temps:  STR79; 

4141  BEGIN 

41  51  kchar:  =  1  '  ; 

4161  GETCHAR:=TRUE;  correct :  =FA!SE; 

4171  repeat  1  until  getchar  =  TRUE  I 
4181  special :=TRUE; 

4191  repeat  )  until  a  valid  picture  character  ) 

4201  repeat  until  key pressed; 

4211  read ( kbd , kchar ( I  ] ) ; 

4221  if  keypressed  and  ( kciiarl  1  I  =chr ( esc) !  then 
4231  begin 

4241  read I kbd, kchar) 2) ) ; 

4251  kchar [ 1 1 :=chr(0) ; 

4261  kctiarl  0  1 :  =chr( 2) ; 

4271  end  else 

4281  kchar)  0  )  :=c!ir(  1  ) ; 

4291  {  Clear  Line  25  ) 

4301  if  clear25  then 
431 1  begin 
4  321  color  (14,  1  )  ; 

4331  uotoxy  (1,25); 

4341  clreol; 

4351  gotoxylhcol , Lin) ; 

4361  clear25: =FALSE; 

4  37  1  color  (FGR_COLOR,  BGRJJJUjP  )  ; 

4(81  end;(  Clear  Line  ) 

4391  if  (not;  (ord(  kchar)  1  )  )  in  (esc.cr  ,bk  1 )  )  and  (ord(  kciiarl  0  |  )  =  1  )  then 

4401  begin 

4411  str: = kchar I  1  ) ; 

4421  it  (str>  =  '  ')  anil  (sf.r<  =  '  ')  tlien 

44  3  1  -isn  ct.y|.<  of 

44  41  ■  -or root :  -TRUE; 

145!  t . -  ii n 

14*,  i  if  :;t  r  m  I  '  i |  th«*n  str : =chr (oi d( str )  and  HI); 

44/1  .■'.churl  1  ]  :-st  r;  .-nr; ■■ct  :  -  lRI'E; 

4481  ■■mi; 

44'M  '  ;  i,  -( i  n 

45"  I  it  st  1  m  |  '  A '  . . 


:  then  sl.i  :  riu -(nrd(  str )  ot‘  i,.’"); 
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4511  kchar[ 1 ] :=str;  correct :=TRUE; 

4521  end; 

4531  if  (str  in  ['0'. .'9',' then  correct:  ='!'RUE  else  message(5) ; 

4541  '9':  if  str  in  t  ' 0 ' . .  1 9 ’  ,  1  ']  then  correct : =TRUE  else  message(2); 

4551  ’81:  if  str  in  l ’ 0 ’ . . ’ 9 ’  J  then  correct :  ='IT3UE  else  message(l); 

4561  end  !  case  ) 

4571  end  t  begin  ) 

4581  else 

4591  begin  (special  character) 

460 1  GETCI1AR:  =  FALSE; 

4611  correct :=TRUE; 

4621  1  str:=kchar[  1  I ; 

4631  end; 

4641  until  correct; 

4651  if  (ord(kchar[0J ) =2 )  then  I  see  if  it  is  a  special  character  ) 

4661  begin 

4671  special : = FALSE; 

4681  GETCI IAR :  =  1WJE ; 

4691  if  (kchar[2]  in  special__keys)  or  (kchar(2|  in  func_keys)  then 

4701  begin 

4711  GE1CHAH:  =FAIdE; 

4721  special :=TRUE; 

4731  end  else  BEEP (Beep UnSS); 

4741  end; 

4751  until  special; 

4761  rot:=kchar; 

4771  END;  (  GETCHAR  FUNCTION  I 
4781 

4791  PROCEDURE  DEC! i ;  (  Positions  Cursor  At  the  Next  Non  Edit  Character  ! 

4801  VAR  elem_end:  BOOLEAN ;  tempbl :  BYTE; 

481  I  BEGIN 

4821  if  1  ico l.<> (col  +  tcol-  1  )  then 

4831  begin 

4841  tempbl : =pcol ; 

4851  e lem_end : = FALSE ; 

4861  repeat 

4871  tempbl : -tempbl - 1 ; 

4881  if  (pict  [  tempbl  )  in  pi ct  elements)  or  (tempbl'l)  then  eLemjairl: -TRUE; 
4891  until  elem_end; 

4901  if  tempbl > - 1  then 
491  I  begin 

492 1  heol :  =hcoi  -  ( j  col- tempbl  ) ; 

4931  pco 1 : = tempb 1 ; 

4941  end; 

4951  end  else 

4961  begin_of  t  i> » 1  <  1 ;  =TUUE; 

4971  END;  (  DEC! I  PROCEDURE  I 
498  r 


4991  PROCEDURE  INCH;  (  Positions  Cursor  At  the  Next.  Non  Edit.  Character  | 
5001  VAR  elem  end:  KjOLEAN;  tempbl:  BYTE; 
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BEGIN 

if  hcoi< > ( col+len-1 )  then 
begin 

teinpbl  :  =  1  ; 
e  lein_end  FALSE ; 
repeat 

tempbl : -tempbl  +1  ; 

if  (pictl pcol  +  tempbl -1  1  in  pict_eiements)  or  ( (pool * tempbl )>( len) )  then 
elan_end:  ='IRUE; 
until  elem_end; 
if  tempbl <=( len)  then 
begin 

hcol :  =hcol  tempbl  - 1  ; 
pcol:=peol*tempbl  -1  ; 

end; 

end  eLse 

end_of _fieid:=TRUE; 

END;  {  INCH  PROCEDURE  ) 

PROCEDURE  STR1PB1.ANKS ( VAR  tanpitem:  STR80  ) ; 

(  Strip  Blanks  On  Both  Sides  Of  passed  item  ) 

VAR  i , j :  BYTE; 

BEGIN 

if  temp_item<  > '  '  tlien 
beg  in 

] : -ord ( temp_ i tan  1 0 1 ) ; 

(  Strip  Leading  Blanks  ) 
i :  =0; 

while  ( temp_item|  n- 1  )  =  '  ')  and  (i<j)  do  i ;  -  i  *■  1  ; 
if  ( i  >  0 )  and  (  i  <  j  )  tlien  t.anp_i  tan: -copy  ( temp_i  tan ,  1 1 1  ,  j  -  i ) 
else  if  (  i-j  )  and  ( tanp  itaril  J  I  =  ’  ')  then  temp  i  lari: ; 
i:-|/js('  '  ,  temp_i  tan) ;  I  strip  trailin')  ill, inks  I 

Lf  if'0  then  teinp_itaii:=eopy  ( tanp  itom,  1  ,  i- I  ) ; 
end  ; 

END;  (  STRIP  BLANKS  PROCEDURE  I 


BEGIN  |  Main  Procedure  Of  CETITEM  J 

i tan: =wi tan;  (  Store  Actual  Item  in  A  Work  Variable  | 
cleariS :  -FAI.SE; 
it  ityjxi-'D’  then 
l  login 

pict := 'BH/HH/8B'  ; 
len: -B ; 

•  Mid; 

il  ltyv'-'Y’  l  lien 
t/v  j  in 

il  not  (itanll)  in  I'Y'.'lJ'l)  then  1 1  <  mu  :  -  '  V '  ; 
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5511  if  itype='M'  then 
5521  begin 

5531  if  not  (itemfl]  in  I'M'/F'l)  then  item:='M'; 

5541  pict:='U'; 

5551  len:=1 ; 

5561  end; 

5571  end_of_f ield:=FALSE; 

5581  begin_of_f ield:=FALSE; 

5591  if  (pict='')  and  (itype='C')  then  pict:='X'; 

5601  plen:=ord(pict( 0 ] ) ; 

5611  fchar:=pict[plen]; 

5621  ilen:=ord( item[0 ] ) ; 

5631  {*  Fill  Item  with  blanks  *} 

5641  if  itypeo'N1  then  {*  If  item  is  non  numeric  *} 

5651  begin 

5661  while  ilen<len  do 

5671  begin 

5681  item:=item+' 

5691  ilen:=ilen+1 ; 

5701  end; 

5711  while  plen<len  do 

5721  begin 

5731  pict:=pict<-fchar; 

5741  plen:=plen+1 ; 

5751  end; 

5761  end  else  {*  If  item  is  numeric  *) 

5771  begin 

5781  strip_blanks( item) ; 

5791  if  item=' '  then  item:='0'; 

5801  ilen:=ord( item! 0 ] ) ; 

5811  while  ilen<len  do 

5821  begin 

5831  item:='  '+item; 

5841  ilen:=ilen+1 ; 

5851  end; 

5861  while  plen<len  do 

5871  begin 

5881  pict : = ' # ' fpict ; 

5891  plen:=plen*1 ; 

5901  end; 

5911  if  ord(pict[0 1 ) > len  then  pict:=copy(pict,ord(pictlO ) )-len+1 , len) ; 
5921  if  ord( item) 0 ] ) >len  then  itan: =copy( item, 1 , len) ; 

5931  lien; =ord( item) 0 ]) ;  plen: =ord( pictf 0 ] ) ; 

5941  pict_dec:=pos( 1 . 1 ,pict) ; 

5951  itemjdec: =pos( 1 . ' , item) ; 

5961  (  Align  Decimal  Positions  If  Necessary  ) 

5971  if  pict_dec< >item_dec  then 
5981  begin  (  alignement  ) 

5991  check: =TRUE; 

6001  (  If  picture  has  no  decimal  point  and  item  does) 
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601 1  if  ( pict_dec=0 )  and  check  then 
6021  begin 

6031  item:=copy(item,1 ,item_dec-1 ) ; 

6041  fillchar ( temp_item,ord(pict[0 ] ) -ord( item) 0 ) ) , '  '); 

6051  item:=temp_item+item; 

6061  check :=FALSE; 

6071  end; 

6081  {  If  item  has  no  decimal  point  and  pict  does) 

6091  if  (item_dec=0)  and  check  then 
6101  begin 

6111  strip_blanks( item) ; 

6121  tempb2:=plen-pict_dec;  (  #  of  decimal  points  ); 

6131  fillcharf temp_item,tempb2, item) ord( item! 0)) J); 

6141  item:=item+ 1 . ' +temp_item;  {  Add  decimal  trailing  digits  1 
6151  ilen:=ord( item[0 J ) ;  {  Get  length  of  item  ) 

6161  while  ilen<plen  do  {  Add  blanks  left) 

6171  begin 

6181  item:='  '+item; 

6191  ilen:=ilen+1 ; 

6201  end; 

6211  if  ilen>plen  then  {  If  The  Item  >  Picture  ) 

6221  begin 

6231  item: =copy( item, 1 ,pict_dec-1 ) ; 

6241  item:=item+ 1 . ’ *temp_item; 

6251  end; 

6261  check :=FALSE; 

6271  end; 

6281  {  If  item  decimal  is  further  right  than  pict  dec) 

6291  if  ( item_dec>pict_dec)  and  check  then 

6301  begin  (  Move  the  item  to  the  left  dropping  off  numbers  picts) 
6311  plen:=ord(pict[0] ) ; 

6321  ilen:=ord( item(0 ] ) ; 

6331  item:=copy(  item,  item_dec-pict_dec*- 1  , ilen- ( item_dec-pict_dec) ) ; 
6341  ilen:=ord( item[0] ) ; 

6351  tempbl :=plen-ord( item) 0 ] ) ; 

6361  f illchar ( temp_item, tempbl , item) ilen 1) ; 

6371  item:=item+temp_item; 

6381  ilen:=ord(  itan[  0  ]  ) ; 

6391  while  ilen<plen  do  {  Add  blanks  left) 

6401  begin 

6411  item:='  '+item; 

6421  ilen:=ilen>1 ; 

6431  end; 

6441  check := FALSE; 

6451  end; 

6461  (  If  pict  decimal  is  further  right  than  item's) 

5471  if  (pict_dec>item_dec)  and  check  then 
6481  begin 

6491  tempb2:=plen-pict_dec; 

6501  i  tern :  =copy  ( l  tern ,  1  ,  l  tem_dec  <■  tempb2 ) ; 
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6511  ilen:=ord( item[0 )) ; 

6521  while  ilen<len  do 

6531  begin 

6541  item:='  ' -t-item; 

6551  ilen:=ilen+1 ; 

6561  end; 

6571  check: =FALSE; 

6581  end; 

6591  end  {  alignement  ) ; 

6601  end  {  fillings); 

6611  (*  Copy  edit  characters  to  item  *) 

6621  for  tempbl :=1  to  len  do 

6631  if  not  (pictl tempbl ]  in  pict_elements)  then  item! tempbl 1 :=pictl tempbl ] ; 
6641  (*  Display  The  item  on  the  screen  *) 

6651  color) FGR_OOLOR ,  BGR_COLOR); 

6661  gotoxylcol, lin) ; 

6671  writecl item) ; 

6681  (*  Get  Data  From  Screen  If  Retrieve  is  True) 

6691  if  retrieve  then 
6701  begin  {  Retrieve  ) 

6711  (*  Move  cursor  to  first  position  by  bypassing  edit  chars  I 
6721  pcol:=1; 

6731  while  (not  (picttpool)  in  pict_elements) )  and  (pcol<=len)  do  pool : =pcol + 1 ; 
6741  {*  Readjust  column  ) 

6751  tcol:=pcol; 

6761  ( *  Handle  Non  Numeric  Type  Of  Item  *) 

6771  if  (itypeo'N1)  and  (pcol<  =  len)  then 
6781  {  pcol  is  position  of  cursor  within  field) 

6791  begin  (*  Non  Numeric  Field  *) 

6801  repeat  (  Until  range_check  =  TRUE  ) 

6811  pcol:=tcol; 

6821  hcol: -coltpcol-1 ; 

6831  gotoxy(hcol, lin) ;  {*  Go  to  location  on  screen*) 

6841  repeat 

6851  end_of_fie Id: = FALSE; 

6861  begin_of_£ield:=FALSE; 

6871  special :=FALSE; 

6881  if  getchar(pict[pcol 1 ,kchar )  then 

6891  bee;  in 

6901  writecl kchar ) ; 

6911  item! pcol ) :=kchar[  1  I ; 

6921  inch; 

6931  gotoxy ( hcol , lin ) ; 

6941  end  else 

695  r  1  l-'IRUK; 

6961  if  sfjeemi  then 

69/1  begin  (  Sjjecin  1  Key  Pressei  ! 

6981  ret :  =kcliar ; 

6991  sf  iec  in  1 :  =  FALSE ; 

7001  if  kchar  I  1  l=chr(bk)  then  (  It  ifi  Ivackspace  1 


184 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  48 


Page  1 5 


SPLICE. PAS-include  file  SPLICE1 .PAS  Program  Listing 


begin 

dech; 

gotoxy(hcol,lin) ;  {Left} 
end  else 

if  (ord(kchar[0 ) ) =2 )  and  (kchar[2]  in  [l,r,dl,ins) )  then 
begin 

case  kchar[2}  of 

1:  begin  dech;  gotoxy(hcol,lin) ;  end;  (Left) 
r:  begin  inch;  gotoxy(hcol, lin) ;  end;  (Right) 
dl:  begin  {Delete} 

tempb2:=pcol+1 ;  {Find  where  the  next  edit  chair  starts) 
while  (pict(tempb2]  in  pict_elements)  and  ( tempb2<=len)  do 
{  tempbl =start,  tempb2:=end} 
tempb2:=tempb2+1 ; 
tempb2 : =  tempb2 - 1 ; 

for  tempb) :=pcol  to  tempb2-1  do  {move  chars  left} 
begin  {  &  put  blank  at  end} 

item[ tempbl  }  :=item[ tempbl +1 1; 

end; 

item(tempb2] :='  '; 

{rewrite  the  item} 
gotoxy  ( col,  1  in) ; 
writec( item) ; 
gotoxy ( hcol , 1 in ) ; 
end; 

ins;  begin  {Insert} 

tempb2:=pcol+1  ; 

while  ( pict [ tempb2 J  in  pict_elements/  and  ( tempb2<=len)  do 
tempb2 : =  tempb2  + 1 ; 
tempb2:=tempb2-1 ; 

for  tempbl :=tempb2  down to  pcol+1  do 
begin 

item! tempbl  J : =item{ tempbl -1  J ; 

end; 

item( pool ] : = '  ' ; 
gotoxy (col, lin) ; 
writecl item) ; 
gotoxy ( hcol , 1 in ) ; 
end; 

end  {  Case  kchar  } ; 
end 

else  (esc,cr,[)gup,pgdn,up,dn} 
special :=TOUE; 
end  (If  backspace  }; 

if  end_of_field  or  begin_of_f ield  then  BEEP ( BeepOnSS ) ; 
until  (end_of_f ield  and  (not  confirm))  or  begin_of_f ield  or  special; 
tempbl :=len;  (  Strip  Trailing  Blanks  } 
if  itype='C'  then 

while  ( i teml tempbl )= '  ')  and  (tempb! >0)  do  tempbl := tempbl -1 ; 
ltenl  0  1 :  =chr  ( tempbl  ) ; 
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range_check : =TOUE ; 
if  itype='D'  then 
begin 

range_check:=check_date( item, item_low, item_high ) ; 
if  not  range_check  then  messaged); 
end; 

if  itype='Y'  then 

if  not  (item[11  in  1 1 Y ' , 1 N * ] )  then 
begin 

range_check : =FALSE ; 
message) 6) ; 
end; 

if  itype='M'  then 

if  not  (item[1)  in  ['M' ,'F'l)  then 
begin 

range_check : =FALSE ; 
message) 7 ) ; 
end; 

until  range_check; 

end  1  If  non  numeric  type  of  item)  else  )  if  Numeric 
if  )itype='N')  then 
begin 

tcol:=len; 

repeat  (  Until  range_check=TRUE  ) 

len:=tcol; 

tempbl :=len; 

len:=pos( ' . ' , item) ; 

range_check ; = FALSE; 

if  len=0  then  len:=tempb1 

else  len:  =  len-1;l  Item  has  decimal  point  ) 

hcol:=col*len-1  ; 

pcol:=len; 

gotoxy ( hcol , 1 in ) ; 

special:=FALSE; 

sign_f lag : =FALSE ; 

end_of_f  leld;  =FALSE; 

dec_f  lag :  =FALSE  ; 

repeat 

va  1  id_cha  r :  -  FALSE ; 
if  getctiar  (  '  H '  ,kchar )  then 
begin  (  Mot  Special  ) 
case  kchar  of 

'-'  :  )  Sign  )  if  not  sign_flag  then  valid_ctiar:  =TRUE; 

'  . '  :  (  Decimal  point  ) 

if  ( len<  >  tempbl  )  and  (not  dec_t'lag)  then 
ben  in 

hcol :  =hcol+2 ;  pcol:=len+2;  gotoxyfhcol ,  lin) ; 
dec_f  lay :  =TRUE;  siyn_f  lay :  =TRUE; 
end ; 

'0'. .'9':  valid  char: =TRUE: 


V.V 
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I  vv 


I 


I 


I 


8011 
8021 
8031 
8041 
8051 
8061 
8071 
8081 
8091 
8101 
8111 
8121 
8131 
8141 
8151 
8161 
8171 
8181 
8191 
8201 
8211 
8221 
8231 
8241 
8251 
8261 
8271 
8281 
8291 
8301 
8311 
8321 
8331 
8341 
8351 
8361 
8371 
8381 
8391 
8401 
841 1 
8421 
8431 
8441 
8451 
8461 
8471 
8481 
8491 
8501 


end  (  Case  kchar  } ; 

(  sign_flag  =  if  FALSE  we  allow  minus  (-)  sign  } 

{  dec_f lag  =  if  FALSE  we  allow  decimal  ( . )  point  ) 

if  (valid_char)  and  (not  dec_flag)  then  (  Integer  Portion  } 

begin 

if  (item(1]<>'  ')  and  ( len< >tempb1 )  and  (sign_flag)  and 

not  ( (ord( itemf 0 1 ) > 1 )  and  ( itemf 1 ]= ' - ' )  and  ( item( 2 J= 'O' ) )  then 
message! 8)  {  Overflow  Numeric  Field  J 
else 
begin 

if  (not  sign_flag)  then  (  Erase  Old  Entry.  Start  New  One  ) 
begin  (  Sign  Allowed  } 

for  pcol:=1  to  len-1  do  itemipcol ) :=' 
if  tempbl > len  then 

for  pcol:=len+2  to  tempbl  do  item[ pool ] := '0 ' ; 
if  (kcharl  1  ]  <  > 1 0 1  )  then  sign_f  lag:  =TRl!E; 

(  Check  if  field  is  too  small  to  accomodate  a  minus  sign  ) 

if  kchar[1]='-'  then 

begin 

if  ( len-1 ) <=0  then 
begin 

message! 9) ; 
s ign_f lag : =FALSE ; 
end  else  ■ 
begin 

itemi len-1 
item! lenl : = ' 0 ' ; 
end; 

end  else 

item[ len ) : =kchar  ( 1  ] ; 

gotoxy(col , lin) ; 
writec( item) ; 
gotoxy ( hcol , 1 in ) ; 
end  else 
begin 

(  Insert  A  Digit.  No  Sign  Allowed  ) 
if  not  ( < iteinl  len ]  = ' 0 '  )  and  (  itemi  Len-1  ]='-') )  then 
if  not  end_of_field  then 

for  pcol:  =  l  to  Len-1  do  item! pcol I :  =  item( pcol* 1  I ; 

itemi len ) : =kchar ; 
gotoxy ( col , 1 in ) ; 
wntecl  item) ; 

'  jotoxy  ( ticoi  ,  1 1  n  i ; 
end; 

if  (  itemi  1  )<> 1  ')  and  ( len=  tempbl  )  then  end_of_f  leld: -'IWK; 
end; 

end  (  Integer  Portion  ) 


187 


V-.  L-»  . 


-VJV*. 
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8511 
8521 
8531 
8541 
8551 
8561 
8571 
8581 
8591 
8601 
8611 
8621 
8631 
8641 
8651 
8661 
8671 
8681 
8691 
8701 
8711 
8721 
8731 
8741 
8751 
8761 
8771 
8781 
8791 
8801 
881 1 
8821 
8831 
8841 
8851 
8861 
8871 
8881 
8891 
8901 
891 1 
8921 
8931 
8941 
8951 
8961 
8971 
8981 
8991 
9001 


else  (  Decimal  Portion  ) 

if  valid  char  and  (sign_flag)  then 
begin 

item[pcol ] :=kchar[ 1 ] ; 
writec(item[pcol] ) ; 
if  not  end_of_field  then 
begin 

hcol:=hcol  +  1  ; 
pcol:=pcol+1 

end; 

if  pcol > tempbl  then 
begin 

hcol:=hcoi- i ; 
pcol:=pcol-1 ; 
end_of_f ield : =TRUE 

end; 

gotoxy ( hcol , lin ) ; 
end; 

end  {  getchar  is  FALSE  )  else  {  getchar  is  TRUE  ) 
special : =TRUE; 

{  Special  Keys.  DEL) 
if  special  then 
begin 

ret: =kchar; 
special :=FALSE; 
if  (ord(kcharlO) ) =2 )  then 
begin  (  Case  ) 
case  kchar(2]  of 

dl,l:(  DELETE  KEY  PRESSED  OR  LEFT  ARROW  KEY  ) 
case  dec_flag  of 

False:  {  Integer  Portion  ) 
begin 

sign_f lag: =TRUE; 

for  pcol:=len  downto  2  do  itemlpcol ] :=item) pcol-l ) ; 
if  (itemllen]  in  ['  then 

begin 

item) ien ] : = ' 0 ' ; 
sign_f lag: =FALSE; 

end; 

item) 1 ) : = '  '; 
gotoxy (col, lin) ; 
writec( item) ; 
gotoxy (hcol, lin) ; 
end_of_f ield:=FALSE; 
end  (  F  ) ; 

True:  l  Decimal  Portion  ) 

l  Put  0  fl  Cursor.  Check  If  Going  To  Integer  Part) 
it  pictl pool-1 )= '. '  then  (Are  We  in  Integer  Part?) 
begin  (YES.  Initialize  Variables) 
hcol : =coli len- 1 ; 


1  88 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  52 


Page  19 


SPLICE. PAS- include  file  SPLICE1.PAS  Program  Listing 


gotoxy ( hcol , lin ) ; 
dec_flag:=FALSE;  - 
end_of_f  ield : =FALSE ; 
end  else 
begin 

if  not  end_of_field  then 
begin 

hcol:=hcol-1 ; 
pcol:=pcol-1 

end; 

gotoxy ( hcol , lin ) ; 
item! pcoi ]  :  =  '0‘ ; 
writec( item[ pcol ] ) ; 
gotoxy ( hcol , lin ) ; 
end_of_f ield : =FALSE ; 
end; 

{  T  } 

end  {  dec_f lag  CASE  ) ; 

u,d,l,r,pu,pd,f1 ,f2,f J,f4,f5,f6,f7,f8,f9,f10:  special : =TRUE; 
end;  {  DELETE  KEY  CASE  ) 
end  {  Case  }  else 

if  (ord(kchar( 1 ) )  in  (cr,  esc])  then  special :=TRUE; 
end  (  Special  ) ; 

if  end__of_f  ield  and  (not  special)  then  BEEP(BeepOnSS) ; 
until  special  or  (end_of_f ield  and  (not  confirm)); 

1  Get  Old  Length  back  and  find  point  position  ) 
len:=tcol ; 

pcol:=pos( ' . ' ,pict) ; 

(  If  no  decimal  point  and  1st  position  is  minus  or  blank  then  set  tQ  0  ) 
if  (item(len)  in  ('  and  (pcol=0)  then 

begin 

item] len] := '0 ' ; 
gotoxy (col , lin) ; 
writect item) ; 
end; 

temp^i tern : = i tern ; 
strip_blanks( itan) ; 

range_check: =eheck_range( item, item_low, itemjiigh) ; 
if  not  range_check  then 
begin 

message) 4 ) ; 
item: =temp_item; 

end ; 


unti L  rnngecheck; 
end;(  Numeric  i 
end  (  Retrieve  )  else 


fcls] 
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951 1  begin 

9521  if  itype='N'  then  strip_blanks( item) ; 

9531  if  itype='C'  then 

9541  begin 

9551  tempb1:=len;  {  Strip  Trailing  BLanks  ) 

9561  while  ( item! tempbl )= '  ')  and  (tempb1>0)  do  tempbl :=tempb1 -1 ; 
9571  item) 0 1 :=chr( tempbl ) ; 

9581  end; 

9591  end; 

9601  witem:=item;  (  Return  result  Back  To  witem  ) 

9611  END; {  GETITEM  PROCEDURE) 

9621 


964 

965 

966 

967 

968 

969 

970 

971 

972 


982 

983 

984 

985 


ci  imma  r-\;  rv 


of  the  procedures  in  SPLTCPN  .pas 


PROCEDURE  BEEP ( BeepOn :  BOOLEAN); 
PROCEDURE  CLEAR_KBD ; 

PROCEDURE  COLOR (  f oregr ,  backgr :  BYTE ) ; 
PROCEDURE  WRITECt vtext:  STR80 ) ; 
FUNCTION  SET_MONITOR_Type:  INTEGER; 

(  Display  A  Screen  Sculptor  Screen  ) 
PROCEDURE  DISPLAY_SCREEN(screen_name: 

(  Display  And  Get  An  Item  From  Screen. 


!  Sound  Beep  if  BeepOn=TRUE 
(  Clear  Keyboard  Buffer  ) 
l  Set  Color  ) 

!  Write  Chars  Using  Color  ! 
(  Determine  Monitor  Typf?  ) 

(  2=Color,  3=Mono  ) 

STR80;  Var  f ile_existSS:  BOOLEAN); 
See  Detailed  Desription  In  Manual 


973 

PROCEDURE  GETITEM(00L,LIN,LEN  : 

BYTE; 

t  Column,  Line,  length  ) 

974 

ITYPE  : 

CHAR; 

{  Type-  C,  N,  D,  Y,  M  ) 

975 

Var 

WITEM  : 

STR80 ; 

(  Variable  Name  ) 

976 

PICT  : 

STR80 ; 

(  Picture  X,  U,  L,  9,  8  II  1 

977 

ITEM  DOW, ITEM  HIGH  : 

STR80 ; 

!  Range  -  Numer lcs/Date  Only) 

978 

Var 

RET  : 

STR2; 

(  Returned  Code  t 

979 

RETRIEVE  ; 

BOOLEAN; 

1  False^Disp  Only,  True-Get  1 

980 

981 

FGR  COLOR, BGR  COLOR  : 
) ;  EXTERN; 

BYTE 

1  Colors  Foregr,  Backgr  f 

*) 

l-*-* 


986 

987 

988 

989 

990 

991 


GD1BAI,  PRtXIEDURES 

1  Global  Procedures  used  by  SCREEN  SCULI’B/R 


992 


993 

994 

995 
995 

997 

998 

999 
1000 


PR<  CEDURE  ACCEPT_INPUTS ; 

I  Display  a  prompt  on  line  25  of  the  CRT  and  arc.  t  !>•*  uset  j  •  !*•»  /  ;:(i. »  •; ant  ■ 
t  o  accept  or  roj'-'ct  the  data  values  input  thus  tar.  .3  "Y"  •  a  "N"  i  '-ri  eis’ 
only  is  allowed.  i 

Iky)  1  n  i  Procedure  /YCCEIT  I  Nil  nil  > 

COD  )R  (14,  1);  1  Set  loroground  ■i  lurk  ii"inii  <1  nr.  I 


r 
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GOTOXY  (1,  25);  {  Position  cursor  col  1,  row  25  ) 

ClrEol;  (  Clear  row  25  with  blanks  ) 

WRITE  ( '  Do  you  accept  the  input  values  thus  far?  Yes  or  No 
answerSS  :=  ' N 1 ; 

GCTITEM  (70,  25,  1  ,  'Y‘,  answerSS,  'U*  ,  ",  ",  retSS,  True,  12,  1); 
GOTOXY  (1,  25);  (  Position  cursor  col  1,  row  25  ) 

TextBackground  ( 1 ) ;  (  Set  background  color  to  BLUE  ) 

ClrEol;  (  Clear  row  25  with  blanks  ) 


End;  l  Procedure  ACCEPT_INPUTS  ) 


r  nv  a  ,i  j  /i  iiu  ■  i\Li  Jimuoj 

(  Check  Status  Of  Variable  retSS  and  return  a  code  in  'actionSS'  &  set  'varSS' 
This  procedure  is  called  irmediateiy  following  GETITEM  ) 

(  Input  to  this  procedure: 

when  retSS  is  length  1  the  values  are  any  of  the  ASCII  chars 

when  retSS  is  length  2  the  values  are  uSS,  1SS,  puSS,  pdSS,  function  keys 

dSS,  rSS 

(  See  Const  Section  For  Meanings  I  I 

(  Output: 

The  following  codes  are  returned  in  actionSS  :  nextSS,  prevSS, 

exitSS,  staySS  ( 

(  Based  upon  'actionSS'  this  procedure  will  then  set  'varSS'  to  an  integer, 
which  represents  the  next  item  (variable  )  to  get.  ) 


Penn 

iast_f ield_actionSS  :=  exitSS; 

actionSS  :=  nextSS;  I  Initialize  Action  Code  ! 

IF  retneveSS  THEN  i  Is  retrieveSS  TRUE?  ) 

Begin 

IF  ord  ( retSSI 0 1 )  -  2  THEN  /  Is  retSS  length  2  ?  I 
Begin 

CASE  retSSI  2  I  of 

(  Action  to  be  taken  depending  on  last  key  pressed  } 

uSS,  1SS  :  actionSS  :-  prevSS;  I  Up  Key,  lej L  Key  i 

dSS,  rSS  :  actionSS  :-  nextSS;  (Down  Key,  Right  Key' 
puSS  :  actionSS  :-  staySS;  (  Page  Up  I 

pdSS  :  actionSS  staySS;  (  Page  Down  I 

i  Funct ion  Keys  ) 

fISS,  f 2SS ,  f 3SS ,  USS,  f 5SS , 

f 6SS,  f 7SS,  f RSS ,  f'.'SS,  flOSS  :  actionSS  :•=  staySS; 
End  (  Case  ret  I ; 

End 

LISE  i  retSS  is  length  1  ! 


IF  ret:;s  eg,-;;;:  mp:j  i,-t  i,  ,|,SS  :-  stgySS  ■  E 

Ei  ii  i ; 

{  Any  other  key  not.  in  alr.ive  list,  will  keep  act ionSS  =  nextSS 
End;  ) re' r i eyeSG I 


3/3 
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UNCLASSIFIED 


DEVELOPMENT  OF  AN  AUTOMATED  HICROOCOHPUTER 
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1051 

1052 

1053 

1054 

1055 

1056 

1057 


1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 
1  1 00 


CASE  actionSS  of 
staySS : 
nextSS: 


Begin 

varSS  :=  varSS  +  1  ; 

IF  varSS  >  screen_f ieldSS  THEN  varSS 
LF  last_fieldSS  AND  retrieveSS  THEN 
actionSS  :=  last  field  actionSS 


1058 

End; 

1059 

prevSS:  Begin 

1060 

varSS  : = 

varSS  - 

1  ; 

1061 

IF  varSS 

<  1  THEN  varSS  := 

screen  fieldSS 

1062 

End; 

1063 

exitSS:  ; 

1064 

; 

End;  (  CASE  ) 

1065 

End; 

(PROCEDURE  RET  STATUS ) 

1066 

1067 

1068 

PROCEDURE  GETREAL(C0L,L1N,LEN  : 

BYTE; 

(  Column, 

Line,  Length  ) 

1069 

ITYPE  : 

CHAR; 

(  Type=  C, 

N,  D,  Y,M  ) 

1070 

Var  WITEM  : 

REAL; 

(  Numerci 

Variable  Name  ) 

1071 

PICT  : 

STR80 ; 

l  Picture 

X,  U,  L,  9,  8  li  ) 

1072 

ITEM  LOW, ITEM 

HIGH  : 

REAL; 

1  Range  - 

Numerics/Date  Only! 

1073 

Var  RET  : 

STR2; 

(  Returnee 

1  Code  ) 

1074 

RETRIEVE  : 

BOOLEAN ; 

I  False=Di 

sp  Only,  True-Got 

1075 

FGR  COLOR, BGR 

COLOR  : 

BYTE) ; 

1  Colors  Foregr,  Bnckqr  ) 

1  Tills  Procedure  converts  numeric  to  string  before  calling  GET  ITEM  1 
1  it  then  converts  the  result  back  to  numeric  ) 

Var 

numSS,  numloSS,  numluSS:  S'1'R80 ; 
errorcodeSS,dec_posSS:  INTEGER; 

Begin 

(  Get  #  of  Decimal  Positions  I 
dec_posSS:=ord(pict( 0  1 1  -pos(  ' .  '  ,pict ) ; 

(  Convert  item,  low  and  high  range  to  string  ( 

STR  (witem:0:decj»sSS,numSS) ; 

STR  ( item_low:0:dec_posSS,numIoSS) ; 

STR  ( item_high:0:dec_posSS, numluSS) ; 

GETITEM  (col  ,lin,  len,  itype,numSS,pictrnumloSS,numliiSS, 
ret, retrieve, fgr_color,bqr_color) ; 

(  Convert  string  to  numeric  item  } 

VAL  (numSS,  witem,  errorcodeSS) ; 

End;  (  Procedure  GEiRFAL  ) 


PRCX’EDURF.  GET  INT(COL ,  L  IN,  I  JEN 
ITYPE  : 

Var  WITEM  : 


BYTE;  (  Column,  Line,  length  I 
Cl IAR ;  (  Type=  C,  N,  D,  Y,  M  I 

INTEGER;  I  Numerci  Variable  Name  t 
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1101 

1102 

1103 

1104 

1105 
1  106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 
1119 
1  120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 
1129 

I  1  30 

1131 

1132 

1133 

1134 

1135 

I I  36 

1137 

1138 
1  1  39 
1  140 
1  141 
1142 
I  143 

1144 

1145 
1  1  46 
1  1  47 
1  148 
1  149 


PICT  : 

ITEJ4_LOW,  ITEM_HIGH  : 
Var  RETT  : 

RETRIEVE  : 

FGR_COLOR , BGR  COLOR  : 


STR80; 

INTEGER; 

STR2; 

BOOLEAN; 


BYTE) ; 


{  Picture  X,  U,  L,  9,  8  #  ) 

{  Range  -  Numerics/Date  Only) 
{  Returned  Code  ) 

(  False=Disp  Only,  True=Get  1 
(  Colors  Foregr,  Backqr  ) 


(  This  Procedure  converts  numeric  to  string  before  calling  GETITEM  ) 
(  It  then  converts  the  result  back  to  numeric  } 


Var 

numSS,  numloSS,  numhiSS:  STR80; 
errorcodeSS  :  INTEGER; 

Begi  i 

(  Convert  item,  low  and  high  range  to  string  ) 

S'lTR  (witem, numSS)  ; 

STR  ( item_ low, numloSS ) ; 

STR  ( itein_high,  numhiSS) ; 

GETITEM  ( col , 1  in , len, i type, numSS, pict .numloSS, numhiSS, 
ret, retrieve, £gr_color ,bgr_color ) ; 
i  Convert  string  to  numeric  item  ) 

VAL  (numSS,  witem,  errorcodeSS); 

End;  l  Procedure  GETINT  ) 


{  End  of  SCREEN  SCULPTOR  Global  Procedures  ) 


PROCEDURE  LINE_SETUP; 
Var 

Tempi  :  String  [2); 
Temp2  :  String  14); 


Begin  I  PROCEDURE  LINE_SEIUP  ) 

IF  Siteinfo.siteno  <  10  THEN 

STR  (Siteinfo.siteno: 1 ,  Tempi) 

ELSE 

SIR  (Siteinfo.siteno:2,  Tempi); 
1’emp2  :=  Copy  (Costtable  lli.clin,  1, 
IF  Siteinfo.siteno  <  10  THIN 

LineNumber  : -  CONCAT  (’O',  Tempi 

ELSE 


(  1 

I  Build  the  Contract  I 
4);  t  Line  Number .  (Cl, IN)  ! 

(  i 

Temp2)  ( ♦ *********** ♦♦♦♦♦♦  ****  i 


LineNumber  CONCAT  (Tempi,  Temp2 ) ; 

(  Accumulate  the  three  totals  for  each  section  ) 


a  vvV-.S'.WK.  ’ 
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Subtotals  [ORD  (mode),  I]  :=  Subtotals  IORD  (mode),  1]  +  Extended  Price; 
IF  Mode  -  Hard  THEN 

Subtotals  [ORD  (mode),  21  :=  Subtotals  [ORD  (mode),  2[ 

*  (Quantity  *  Costtablel  1 1  .liaseiiwint 

*  Maint_Factor  *  Maint_Mouttis) 

ELSE 

IF  Mode  =  Soft  THEN 

Subtotals  [ORD  (mode),  2\  •-  Subtotals  [ORD  (mode),  21 

*  (Costtablel  I )  .basemamt 

*  Mamt_Factor  *  Maint_Months ) 

ELSE 

Subtotals  (ORD  (mode),  2]  :=  Subtotals  [ORD  (mode),  2 1 

+  (Costtablel 1 1 .basemaint 

*  Maint_Factor  *  Quantity); 

Subtotals  [ORD  (mode),  31  :=  Subtotals  [ORD  (mode),  31 

‘  (Costtablel 1 1 . instcost  *  Quantity); 

(*ttH*«*t***utmt***t.t**t*ttn**«»**tt*t*t****t»t**ttt|' 

[  Accumulate  t)ie  O&MN  and  OPN  totals  for  eacti  section  I 


IF  (Mode  =  Hard)  OR  (Mode  -  Soft)  THEN  (  Add  to  OFN  Total  I 

Totals  [ORD  (mode),  21  :=  Totals  [ORD  (male),  21  *  Extended_Price 
ELSE  {  Add  to  OXMN  Total  ) 

totals  [ORD  (mode),  I]  :=  Totals  [ORD  (mode),  1J  *  Extended_Pric<>; 
End;  t  Procedure  'LINE  SETUP  ) 


PROCEDURE  HEADERS; 

i  This  procedure  generates  the  headers  which  are  written  at  the  top  ol  I 

t  eacti  section  of  the  delivery  order,  ) 


Begin  (  Procedure  HEADERS  ) 


1 186 

WRI1ELN 

(Dishf lie, 

III  III  1  M  It  « 

III  ll  1  i  II 

•  It  I  It 

/ 

u»  i  »i  Mi 

'I  ill  III 

•"  1 

1187 

1  II  III  III  III 

t 

i  II  ll  1  1  II 

H  1  1  H( 

txnponont" '  , 

’  *  St  ‘^1 

) ; 

1  188 

WR  FIELD 

( D l skf i le, 

1  II  III  III  III 

III  HI  I 

III  1  II 

•II  III  Ml 

Mill  1  II 

"  * 

1  1  89 

•  II  III  1  II  It  1 

’"Total"' 

1  II  ll  • 

'  "LV’wnt.  ime' 

",  "'Do, 

nt  ni't 

1  10(1 

WRIIEJ.N 

( Disk! l ie, 

III  III  III  HI 

1  II  HI  1  H 

H  1  i  ll 

ll  i  im  nr 

in  t"  '  , 

1  1<51 

'"Months"',  "'Coni;>onent' 

t  ■  ll.  •  ».  "  * 

,  Unit 

’  "Total 

M  I 

1  192 

' "Credit" '  , 

"Credit" ' ) ; 

1  193 

WRI’iELN 

(Diskf i le, 

' "Contract" ' 

'  "Feature1 

1  l  II  1 

1  1  II  ll  i  ll 

t  > 

't  il’ 

1  1  94 

’"Monthly"'  , 

' "Mai nt" '  , 

'"of"  , 

"'F  ictor-vl' 

1  1  Ik 

' "Insta )  l" '  , 

'  "  Inst  a  1 1 "  ' 

,  ’  "Far 

.  ill  ill. 

tor  ,  la- 

•f  a  '"  I  ; 

1  1  % 

WRITE!  ,ii 

( ! )  l  sk  t  i  1  o , 

' "Line  No. " ' , 

'  "Nutphers' 

'  ,  '  "l> 

script  ion" ' 

'"..t 

1  107 

"'Unit  Pri 

ce"  '  ,  '"tint 

Price"', 

’Vi  i  nt" ' 

,  "'Fact  oi  " 

,  '  "M.  1 1  • . 

"  » 

1  i  98 

'  "Hunt" '  , 

' "Costs" '  ,  ' 

"Costs"'  , 

'  "ivr  Horn  " '  ,  '  "  i  •  m 

’-V  'i  i*  ‘  i"  1 

)  ; 

1  1  OU 

wp.m-j,:) 

(Diskf i  )  ; 

1  200 

End;  i  1 

’roC'^iuie  III 

■AL'ERS  1 

1  94 
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1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 
1  244 
1245 
1  24f> 
124  7 

1248 

1249 

1250 


PROCEDURE  WR I TE_A_L INE ; 

^ **************************************************************** J 

(  This  procedure  is  called  by  two  disk  file  print  routines,  } 
l  PR1NT_MA1NT  and  PR INT_DOC_or_TRNG  to  write  tile  data  elements  1 
(  associated  with  each  CLIN  to  the  output  disk  file.  ) 

^ **************************************************************** j 

Begin  (  Procedure  WRITE_A_L INE  ) 

LINE_SETUP; 

WRITELN  (Diskfile,  Line_Number:7,  ,  Costtablel I ). featureno: 8, 

Costtablel  I  ]  .descript: 28,  Quantity:3, 

Costtablel 1 1 . purchprice: 13:2,  Extended_Price: 12:2, 

Costtablel  1 1  .basemaint:9:2,  Mamt_Factor:8:3, 

Costtablel I ] .basemaint  *  Maint_Factor  *  yuautity:  1  2:2, 

I  tl  II  I  t  II  tl  i  III  III  |  II  II  I  *  # 

t  t  t  ft 

End;  (  Procedure  WR1TE_A_L1NE  | 


PROCEDURE  PRINT_UOC_or_TRNG; 

^  ********+*******************************************************  j 

(  Sets  "Parameters  for  FDC  Training  Courses  and  Documentation.  ! 

(  Sets  both  Maint_Months  and  Maint_Factor  to  zero  (0)  I 

I  ****************************************************************  | 

Begin  I  Procedure  PR INT_DOC_or_iRNG  ) 

Maint_‘4onths  :=  0;  l  No  maintenance  on  training/documentat ion  i 

Maint_Factor  :=  0;  (  No  maintenance  uplift  on  traininu/document at  ion  I 

Extended_Price  :=  (Quantity  *  Costtablel  I J  .purchprice; 

WRI'1E_A_L1NE; 

End;  (  Procedure  PRINT_DOC  or  TONG  ) 


PROCEDURE  ajMPU-|E_SECTIONJL'D\IS  (Sect  ion_Tit  le  :  Title); 

l  Tins  procedure  prints  the  totals  accumulated  for  each  section  allot  the  | 
l  last  contract  line  number  and  associated  data  elements  .ire  printed.  It  I 
(  then  prints  the  title  for  the  next  section  and  prints  a  new  set  of  I 
l  (leaders.  After  the  last  contract  line  number  and  associated  data  1 
(  elements  have  been  printed,  the  <W1N  ind  •  T'N  totals  for  each  sift  ion  t 
I  and  the  OSMN  and  ot'N  grand  totals  ate  print**!.  1 


Va  r 

K  :  Inteuer; 

<MN_Total,  UPN  Total,  Maint  Totals  :  Real; 


i  o  e. 
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1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 
1  271 

1272 

1273 

1274 

1275 
1776 

1277 

1278 

1279 

1280 
1281 
1282 
1283 
1784 
1285 
1786 
128  7 
1288 
1289 
1  290 
1  291 
1292 
1  2°  3 

1  294  | 
1  298 

1  .’'>6  j 

1  798 1 
1  299 1 
l  ion  | 


Begin  {  Procedure  (X>MPUTE_SECTION_TOTALS  } 

(  Add  maintenance  and  installation  costs  for  each  section  to  OS MW  ' 

(  section  totals.  i 

|  **************************************  ********  ***************  *»♦*****) 
Totals  (ORD  (mode),  1|  :  =  Totals  (ORD  (mode),  1]  +  Subtotals  [ORD  (node),  2] 

+  Subtotals  [ORD  (mode),  3]; 

IF  Section_Title  =  'Other1  THEN 

I  *********************************************************************  j 

(  If  processing  the  last  section,  check  to  see  if  "SITE  POWER  ) 

(  PREPARATIONS"  are  to  be  included,  then  print  the  O&MN  and  OPN  ) 

(  section  totals  and  grand  totals.  ) 

( *********************************************************************  | 


Begin 

{  Compute  Total  amount  of  funds  associated  with  maintenance  1 
Maint_Totals  z-  Subtotals  (0,2)  *  Subtotals  (1,2)  +  Sul. 'tot  ils  |4,2|; 
(  Write  Maintenance  Section  Totals.  Also,  write  the  llardwate 
and  Software  Section  Totals.  Show  the  total  amount  of  funds 
required  for  Maintenance.  I 
WRi'lELN  (Diskfile); 

WRITELN  (Diskfile, 

. ,  . ,  . ,  . ,  '"Totals:"', 

Subtotals  (4,  1  ],  . , 

Subtotals  [4,  2|,  . , 

Subtotals  [4,  3|); 

WRITELN  (Diskfile,  " 

Subtotals  10,  2 ) ) ; 


I  t«  III 


I  tt  II  i 


Subtotals  [ 1 ,  21); 


’"Hardware;"' , 

WRITELN  (Diskfile,  . 

'"Software:"' , 

WRITELN  (Diskfile,  . 

'"  Total:"',  '"  '",  Maint_Totals); 

IF  Site_Preps  =  'Y'  THEN  (  Is  the  response  a  "Y"  or  "N"?  I 
Begin 

WRITELN  (Diskfile); 

WRITELN  (Diskfile,  ’  .'1eC(;  ion_Ti  tie,  ""  ) ; 

HEADERS; 

1  Set  up  conditions  to  process  Site  Preparation  ) 
(  charges.  1 


Quantity  :-  1; 

I  :  —  1  ;  (  1  =  1  for  SHE  PREPS  I 

Mode  :=  Other; 

Mi  int_I actor  :=  0; 

Extended  Pric"  :=  Quant  1 1  y  *  '  ','st  :  al'l  >’|  i  [.pure  pi  p-e; 

wr rn:  a  hi  he; 

End; 

WRITELN  (Diskfile); 

WRi'lELN  (Disk!  lie); 


1  96 


J-  -  *  -r 
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1301 

WRITELN 

(Diskfile, 

1  II  <11 

'"SUBTOTALS:"',  '" 

1302 

III  It  1 

OPN"’); 

1303 

WRITELN 

(Diskfile) 

/ 

1304 

WRITELN 

(Diskfile, 

1  II  III 

t 

'"HARDWARE"',  Totals 

0,  1  1, 

1305 

ill  It  i 

r 

Totals  [0,  2J); 

1  306 

WRITELN 

(Diskfile, 

t 

"'SOFTWARE'",  Totals 

'  ,  1  I , 

1  307 

t 

Totals  [1,  2  J ) ; 

1308 

WRITELN 

(Diskfile, 

1  ii  lit 

/ 

"'DOCUMENTATION'",  Totals  [2 

1  309 

i  il  hi 

Totals  [2,  2)); 

1  310 

WRITELN 

(Diskfile, 

•  ii  hi 

"'TRAINING'"  , 

1311 

Totals 

[3,  1  ],  . ,  Totals 

[3,  2) 

1312 

WRITELN 

( Diskfile, 

1  II  III 

t 

'"MAINTENANCE"' , 

1  31.3 

Totals 

14,  1 ] ,  '"  ”' ,  Totals 

14,  21 

1314 

WRITELN 

(Diskfile, 

t 

"'OTHER'",  Totals  [5, 

11, 

1315 

1  II  Ml 

t 

Totals  [5,  21); 

1  316 

WRITELN 

(Diskfile) 

; 

. 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 
1  329 

1330 

1331 

1332 

1333 

1334 
1  335 
1  336 
1337 
1  338 
1  339 
1  340 
1  341 
1  342 
1  343 
1  344 
1  345 

1  346  j 
1  34  ■’! 
1  348  | 
1  !4ci 
1  350 


O&MN" ' , 


End 


(  Initialize  O&MN  and  OPN  totals  } 

OMNJTOTAL  :=  0; 

OPNJTOTAL  :=  0; 

{  Compute  the  O&MN  and  OPN  grand  totals.  ) 
FOR  K  :=  0  to  5  DO 
Begin 

OMJJTOTAL  :=  OMNJTOTAL  +  Totals  [K,  1]; 
OPNJTOTAL  :  =  OPNJTOTAL  +  Totals  [K,  2); 

End; 

WRITELN  (Diskfile,  . ,  '"TOTALS:”', 

OMN  Total,  '"  OPNJTotal); 


ELSE 


"Totals:"'  , 


En<  1 ; 


Begin 

^** **************  ************************************* ***tt***j 

{  Print  the  totals  for  the  section  just  finished,  then  print  I 
(  the  next  section  title  and  new  headers.  i 

I  ************************************************************* | 

WRITELN  (DiskfiLe); 

WRITELN  (Diskfile,  . . ,  '"  '", 

Subtotals  [ORD  (mode),  1),  "', 

Subtotals  [ORD  (mode),  2], 

Subtotals  [ORD  (mode),  31); 

WRITELN  (Diskfile); 

WRTTELN  (Diskfile,  '  Sect ionjri tie, 

HEADERS; 

End; 

(  Procedure  COMPUTE  SECTION  TOTALS  I 


"); 


♦  t  ♦  f 


END  OF  Gl/JBAL  PRlXTEDURES 
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1  351 

1352 

1353 

135-1  PROCEDURE  INITIALIZE; 

1355 

1356 

1357  PROCEDURE  INIT_TOTALS; 

1  358 

1 359  Var 

1360  Row,  Col  :  Integer; 

1  361 

1362 

1364  (  Initialize  the  subtotals  and  totals  for  each  section  to  zero.  I 

1 366  Begin 

1 367  TOR  Row  ;=  0  to  5  UU 

1368  FOR  Col  :  =  1  to  3  IX) 

1 369  Begin 

1370  Subtotals  (Row,  Coll  :=  0; 

1371  IF  Col  <  3  THEN  Totals  [Row,  Col]  :  =  0; 

1  372  End; 

1  374  (  Initialize  the  following  global  conijonents  1 

1376  I  :=  1 ;  (  Global  index  counter  I 

1377  System_Downtime_Ca!iponent  0; 

1378  Mode  :=  Hard; 

1379  BeepOnSS  :=  False;  t  Set  to  TRUE  if  sound  is  desired  1 

1380  vtypeSS  :=  SET_M0N I T0R_TY PE ;  (  2  =  Color,  3  =  Monochrome  | 

1381  TextBackground  (1);  I  Initialize  background  color  to  I'l, UK  I 

1 382  ClrScr;  1  Clear  the  input  screen  t 

1383  ASSIGN  (Screenfile,  File3); 

1  384  ($1-1  1  User  responsible  for  I/O  -u  pm-  check  ■ 

1385  RESET  (Screenfile); 

1  186  111*1  (  System  will  check  for  I/1'  -mi -ms  t 

138  7  End;  1  Procedure  INITJIUTAIS  ! 

1  188 
1  189 

1390  PRUCEUURE  OPENING_SCREEN; 

1  391 

1  193  (  This  procedure  displays  tlie  open i nil  screen  to  the  user.  I 

1  3°»5 

1  lc>6  Benin  I  Procedure  ( irFNlNG  SCREEN  I 

1397  IjISPIiAY  SCREEN  (Screenl  i  le)  ;  !  Display  Sc  I  -'-Ml  I 

1  398  DELAY  (  3500); 

1399  End;  (  Procedure  i  H'MIItH  SCREEN  I 
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1  401 

1402 

1403 
1  404 
1  405 
1  406 
1  407 
1  408 

1409 

1410 

141  1 
1412 
1  41  3 

1414 

1415 
1  4 1  6 
1  417 
1418 
1  419 

1420 

1421 

1422 

142  3 

1  424| 
1425 
142b 
'427 

1428 

1429 
14  30 

1431 

1432 

1433 

1434 

1435 

1436 

1437 
14  38 
1439 
1  440 
1441 
1  442 
1  443 
1444 
1  445 
1  446 
1447 
1  448 
1  449 
1  450 


PROCEDURE  PICK_A_SITE; 

^  ****************************************************************************  j 

(  Tins  procedure  has  four  main  functions.  First,  it  determines  the  site  to  ) 
(  be  configured.  Then  it  obtains  the  effective  date  for  the  delivery  order. ) 
(  It  THEN  obtains  the  file  name  for  the  output  file  from  this  session.  And  ) 
(  finally,  it  builds  the  SITE. INFO  array  which  contains  site  speclFic  data  ) 
(  from  the  CONFIG. SIT  file.  ) 

i  ****************************************************************************** ) 


Var 

Da  tain 

Siteno,  Element 
F.rr,  Temp_Site 
Text  m 


:  String  180j; 
:  Integer; 

:  Integer; 

:  Text; 


PROCEDURE  GLT_S  ITE_NUMI3ER ; 

Begin  I  Procedure  GET  SITE_NUMUER  I 

I  Initialize  Variables  To  Default  Values  ) 

Siteno  : =  1 ; 

(  Present  the  user  with  a  list  of  the  SPLICE  sites  by  name  and  number.  1 

screen_f  ieldSS  :=  '1  ; 
varSS  : =  1  ; 
retrieveSS  :=  FALSE; 
last_f ieldSS  :=  FALSE; 

DISPLAY_SCREEN  ( Screenf 1 le ) ;  (  Display  Screen  I 

REPEAT  (  until  answerSS  =  'Y'  1 

(  Display  Items.  Change  retrieveSS  to  '1RUL  and  INPUT  items! 

REPEAT  (  until  actionSS  =  exitSS  I 
REPEAT 

GET!  INT(  69 ,24 ,2,  '  N'  ,Si  teno,  'lilt'  ,  1  , 58 ,  retSS,  retrieveSS,  14,1); 

IF  Siteno  =  23  THEN 
Begin 

Gol'oXY  (20,  251; 

Color  (15,  4); 

WRITE  (  V,,'  Site  INACTIVE  and  not  available  lor  soled  ion  "I; 

Eiv  I ; 

UNTIL  Si teno  ■ >  23 ; 

IF  varSS  -  screen  fi»MSS  Till*)  last  tie  MSS  TRUK; 

RIT_STA'11JS;  I  Check  the  code  in  "letSS".  Set  "varSS"  and  ”  id  n  nSS"  1 
t  ‘Tied:  to  see  whether  to  switch  retrieveSS  to  true  | 
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IF  last_fieldSS  and  (not  retrieveSS)  THEN 
Begin 

retrieveSS  :=  TRUE; 
last_fieldSS  :=  FALSE ; 
actionSS  : -  staySS; 
varSS  :  =  1 ; 

End 

ELSE 

last_f ieldSS  :=  FALSE; 

UNTIL  actionSS  =  exitSS; 

ACCEPT_INPUTS ; 

UNTIL  answerSS  =  'Y'; 

End;  {  Procedure  GET  SITE  NUMBER  I 


Begin  (  Procedure  PICK_A_SLTE  ) 

GET_SITE_NUMHER ; 

ASSIGN  (Textin,  File2); 

RESET  (Textin); 

{  Initialize  "Temp_Site"  and  "Stock_Point"  ! 

Temp_Site  :=  0; 

Stock_Point  :=  1  ’; 

WHILE  Not  EOF  (Textin)  AND  (Temp_Site  <  Siteno)  DO 

( *********************************** **************** *.* 

(  Read  the  file  "CONFIG. SIT"  until  the  site  number  i 
(  equal  to  the  site  number  input  by  the  user. 

I*************** *************************************** 

Beqin 

'  READIAl  (Textin,  Da  tain); 

Val  (Copy  (Datain,  1,  2),  Temp_Site  ,  Err); 


lie  is  ! 


St  oek 
End;  ! 


nd ; 

Point 
:  (Text 
Proo 


Is  site  ft  from  COSTS.  IN  =  site  11  selects)  for  <vuf  mut  at : 
Siteno  =  Temp_Site  THEN 
Begin 

(  Builds  tlie  site  information  record  I 
Sitelnfo. siteno  :=  sit.eno; 

Sitelnfo.sitename  :=  Copy  (Datain,  3,  .’7 1 ; 

Val  (Copy  (Datain,  31,  i  ) ,  Sitelnfo. .i'X'ument  it  inn,  I 
Val  (Copy  (Datain,  33,  1),  Si  tolnfo.t  in  i  mnu,  i  i  i  >  ; 
SiteJnto.maint_opLions  Copy  (Datain,  T-,  l); 

Si teInfo.maint_res(x mse  Copy  (Datain,  to,  l  ) ; 

Sitelnfo. sitetype  ;=  Copy  (Datain,  -12,  1); 

Val  (Copy  (Datain,  44,  h),  Sitelnfo. sitoinst  cost. 

End; 

t  SiteInto.site_type; 
t  in) ; 

rw lure  PICK  A  SICE  i 


m 
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1501  PROCEDURE  BUILD_COST_TABLE ; 

1  502 

1503  ( ***************************+*■************+***********************  **t****t*tt  j 

1504  (  This  procedure's  primary  function  is  to  build  the  OOSTTABLE  array.  This  ! 

1505  f  contains  the  identification  data  tor  each  component  from  the  COSTS. IN  file) 

1506  (  as  well  as  cost/maintenance  data,  which  is  updated  by  the  applicable  up-  1 

1507  (  lift  or  discount  factors.  The  array  currently  contains  rocm  for  200  J 

1508  (  entries.  ) 

1  509  1  ♦  *♦**«*******+*♦*■*♦**♦*******+****■**+**♦****♦***■*+***♦■*•*♦*■<•■***♦*'****♦«*♦ ****  j 

1510 

1511  Var 

1512  Textin  :  Text; 

1513  Datain  :  String  [80];  (  Data  coming  in  fran  COSTS. IN  file  I 

1514  Errorcode,  Count  :  Inteqer; 

1515  LCN_Purch_Esc_Rate,  LOJ_Momaint_Esc_Rate,  Document_Esc_Rate  :  Real; 

151 6  Purch_Esc_Rate,  Instal_Esc_Rate,  Train_Esc_Rate  :  Peal; 

1517  SPLICENet_SW_Mamt_Esc_Rate,  SPLlCENet._SW_Purch_Esc_Rate  :  Real; 

151 8  FDC_ SNA_Purch_Esc_Rate ,  LCN_SW_Esc_Rate  :  Real; 

1519 

1520  PROCEDURE  GET_RATES ; 

1  521  {  ******************************************************************************  i 

1522  (  Tins  procedure  serves  three  main  functions:  it  obtains  the  name  of  the  } 

1523  1  current  user,  then  obatins  all  the  escalation/discount  rates,  and  finally  ) 

1524  !  several  numbers  of  Mamt  Months,  which  are  used  for  maintenance  calculations.! 

1525  |  *****♦*»«*****»***  +  *********»»**♦*»»*»***»***********■»■♦**  +  *****  +  ■**♦»*♦*»»♦■*♦*»  | 

1526 

1527)  Var 

1528!  Monthlndex  :  String  12); 

1529  PRM_Name,  Ef fective_Date  :  String  [8); 

1530  Index,  Position  :  Integer; 

1531 
15  32 

1533  PROCEDURE  INITIAL I ZE_RATES ; 

1  534  j 

1535 j  [Initialize  Variables  To  Default  Values! 

1  536  j 

1537j  Beam  I  Procedure  INITIALIZE_RATES  I 
15  38] 


5  39 

Purch  Esc  Rate 

0.00; 

1540 

LCN  I’urch_Esc  Rate 

0.00; 

54! 

SPLICENet_SW  Maint 

Esc  Rate  : - 

0 

542 

SPLICENe'-  _SW_Purch 

Esc  Rate 

0 

54  3 

Emerg  Maint  Rate  : 

=  0.0; 

514 

FIX.'  SNA  Purch  Esc 

Rate  0.00 

54  r 

i.CN  Main  i  nt  Esc  Ra 

te  0.000; 

646 

1.CN  SW  Esc  Rate  :  = 

0.000; 

54  1 

Instal  Esc  Rato 

0.000; 

548 

Train  Esc  Rate 

1 . 00 ; 

1549 

Document  Esc  Rate 

0.00; 

550 

Momaint  Esc  Rate  : 

-  0.000; 
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1601 
1  602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1  61  1 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 
1  640 

1641 

1642 
164  3 
1644 
16451 
1  646  j 
1-47! 
1  6  48  j 
1  64>)  j 
1  *,MI  | 


10:  GETREAL<71 ,17,4, ’N’ ,Train_Esc_Rate, 

'#.##',0.00,9.99, retSS , retr leveSS ,15,3); 

11:  GetkEAL  (70, 18, 5, 'N',  Document_Esc_Rate , 

'##.##' ,-1  .00 , 9.99, retSS, retr leveSS, 15,3); 

1 2 :  GETREALt 70 ,19,5, ' N ' ,Manaint_Esc_Rate, 

'#.###' ,0.000,9.999, retSS, retr leveSS, 15,3); 

13:  GE7riTEM(  63,21  ,8,  '  C 1  ,  PRN_NAME , 

'UUUUUUUU' , retSS, retr leveSS, 15,3) ; 

1 4 :  GCTINTI 37, 23, 2, 'N', Maint_Months , 

' ## ' ,0,12, retSS, retr leveSS, 15,3); 

15:  GEITTEM( 67,23,8, 'D' ,Ef fective_Date, 

'88/88/88' , '01/01/84' , '12/31  /99' , retSS, retrieveSS, 1 5 , 3 ) ; 
End;  {  CASE  ) 

IF  varSS  =  screen_f ieidSS  THEN  lastfieldSS  :=  TRUE; 

RE7T_STATUS ;  j  Clieck  code  in  "retSS".  Set  "varSS"  1  "actionSS"  I 

(  Clieck  to  see  whether  to  switch  retrieveSS  to  true  I 
IF  last_f ieidSS  AND  (not  retrieveSS)  THEN 
Begin 

retrieveSS  :=  TRUE; 
last_f ieidSS  :=  FALSE; 
actionSS  :=  staySS; 
varSS  :=  1 ; 

End 

F.ISE 

iast_£ ieidSS  :=  FALSE; 

UNTIL  actionSS  =  exitSS; 

ACCEPT_INPUTS ; 

UNTIL  answerSS  =  ’ Y ' ; 

End;  l  Procedure  CLT_RATE_INPUTS  i 


Begin  l  Procedure  GEI_RATES  ) 

INITIALIZE_RATES; 

GETT_RATE_  I N  PUTS ; 

I  Generate  tlie  correct  escalation  &  discount  rates  i 
FDC_SNA_Purcti_Esc_Rate  :=  FDCSNAPurch  Ese_Rnte  ,  1; 

Purch_Esc  Rate  :=  1  -  Perch  __Esc_P.it e; 

LCN_Purch_Esc_Rate  :-  1  -  I,CN_Put  ch_E:;c_Rute; 

SPLIC34et_SW_Maint_Esc_Pate  :*  SPLlCENet_SW  Hamt  Esc  Rate  .  i; 
SPLICENet_SW_Purch_Esc_Rate  :-  SPLlCUIet_SW_Purch_Esc_Pate  »  !; 
Instal_Esc_Rate  :-  1  *  Instal_Esc_Rate; 

I)ocimient_Esc_Rate  :=  1  *  Dr.icunient  Esc  Rate; 

Mem-lint  EscRat e  Mcwamt  Esc  Rat  e  »  l; 

Trim  Esc  Rate  i  ,  Ti  a  i  n  EscRat  e; 

I'll  :-V  ina  l  lit  _Esc_Rate  1  •  Ia.TI  Mi  inn  lit  Esc  Pale; 

1.1 7,'  ,'W  rise  Rate  :  -  1  »  LCN  SW  Esc  Rate; 

Emori  7-Va 1 1 1 1  Rate  :■=  1  t  Miiorg  Mamt  Rate; 

i  1  loner  ate  the  compLete  output  I  i  !e  name,  with  UtlVU  t  1 


Si 
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1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 
1  564 
1565 
1  566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 
1  67  7 

1578 

1579 

1580 
1  ^81 
1  582 
168  3 

1584 

1585 
1566| 
1587  j 
1  588 1 
1  58° 

1  590 
1  5al 
1  592 

1  69  3 1 


! 1  »H  i 

I 

lr'  v‘l 

1  >9)11  | 


PRN_Name  :=  'SPLICE'; 

Maint_Months  :=  0; 

Ef fective_Date  :=  '09/01/85'; 

End;  (  Procedure  IN I TI AL I ZE_RATES  } 


PROCEDL1RE  GET_RATE_ INPUTS ; 

Begin  I  Procedure  (IET_RATE_  1 M PUTS  ! 
screen_f leldSS  :=  15; 
varSS  : =  1 ; 
retrieveSS  FALSE; 
last_f ieldSS  :  =  FAIjSE; 

DISPLAY_SCREEN  ( Screen! l Le ) ;  1  Display  Screen  ) 

{  If  the  site  selected  is  a  MAP  site,  blank  out  the  fields  rel  if“d 
IlYPERcliannel  (LCN)  escalation  and  discount  rates. 

IF  Stock_Point  <>  'S'  THEN 
E3egin 

COLOR  ( 1 ,  1 ) ; 

GOTUXY  (70,  11); 

WR ITE  ( '  '  ) ; 

CO" POXY  (70,  15); 

WRITE  (  '  '  ) ; 

End; 

REPEAT  i  until  answerSS  =  'Y'  t 

I  Display  Items.  Change  rot  r level's  to  TRUK  and  INPUT  items) 

REPEAT  (  until  actionSS  -  exitSS  1 
CASE  varSS  of 

1  :  GE71REAL  (  7 1  ,3,4,  'N'  ,FDC_SNA_Purcti_Esc  Rate, 

'  It .  ittt '  ,  0 . 0'J ,  9 . 99 ,  rntSS ,  r  »t  r :  e-.  eSS  ,15,3); 

2:  (.ILTKEAM  >'l  ,'>,4,  'M'  .Put o!i_Eso.Put e, 

'  it  .UH'  ,0.00 , 9 . 9°,  rot-SS,  ret  r leveSS,  16,8); 

3:  IF  Stock  point  *  'S'  mill 

GEIREAH  71 ,10,4,  '  r J '  , cri  _Pi  irch  _Esc_R.it  e , 

'  «f .  ,  0 . 00 , 9 . 99 ,  rot  SS ,  t  o  t  r  i ev«SS ,15,3); 

4:  GETREAU  71  , 1  1  ,  1,  'T  .SPLICENet  _SW_Maint  Esc  Rat 
1  H.Utf'  ,0.00,0. on t ret SS , ret  r iev>'SS ,15,3); 

5:  GETREALI  71  ,12,4,  'N'  .SPLICHNet  GW  Purch_Esc_Rate, 

'  a  .till' ,  0.00,0.  on  t  rot  SS ,  ret:  r  leveS;.;  ,15,3); 

>>:  GETREAL)  72 , 1  3 ,  3 ,  '  N '  .Fiiteru  Maint  Rate, 

')).#’  ,0,0, 9, 9,  retSS,  retr  leveSS,  15,3); 

7:  II  Stock  Point  -  'S'  THEN 

GKiHEALI  70, 1  1 ,6,  ' :j  '  ,U71  Mr  ni.ii  lit  i  ::v-_R,U <■ , 

'  .-/..•)#/)',  0 . 000 ,  o .  ion  _  ,  ei  SS ,  1 . 0  r  l  weSG ,  l  6  (  i ) ; 

!’•:  IF  Stock  1'omt  -  ’S'  'IHEN 

CiriEIAM  70, 16,6,  ,;,cn  GW  Esc  Va'e, 

’  ri.HH it '  ,0.000,0.  on  i;  r«'t  SS,  retrieveSS,  15,  :  |  ■ 

>:  >  H'lRIvM .(  70 , 1  6 , 5 ,  1 N '  ,  Inst  a  l  Esc  Rate, 

1  rf .  tl:i ti '  ,  t ' . 00* ) ,  ‘ * .  1 1 « 't  'v' ,  i  *'?  r  1  ‘ v" ,  ^ r- ,  } )  ) 


to 
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PRN_File_Name  :=  C0NG3T  (PRN_Name,  ' . PRN 1 ) ; 

Day  :=  Copy  (Effective_Date,  4,  2); 

Month_Index  :=  Copy  ( Ef fectiveJDate,  1,  2); 

Val  ( Month_Index ,  Index,  Errorcode); 

Month  :=  Mont!i_Name  [  Index  1; 

(  Strip  trailing  blanks  off  the  name  of  the  month  ) 

Position  :=  POS  ('  Month); 

IF  Position  <>  0  THEN  Month  :=  Copy  (Month,  1,  Position  -  1); 
Year  :=  Copy  ( Ef fective_Date,  7,  2); 

Year  : =  CDNCAT  ('19',  Year ) ; 

End;  (  Procedure  ’  '17  r  RATES  | 


l  Begin  (  Procedure  BUILD_OOST_TABUi  ) 
i  ASSIGN  (Text in,  Filel); 

.  RESET  (Text  m); 

’  Count  :=  1; 

I  GE1'_RATES;  (ask  user  for  ail  discount  and  escalation  rates  to  be  used  | 

I  ClrScr; 

I  OJIjOR  (15,  1  )  ; 

GOTOXY  (16,  13); 

!  WRITE  ('Constructing  cost  escalation  and  discount  table.'); 

I  READLN  (Textin,  Datain); 

1  WHILE  Mot  EOF  (TEXTIN)  DO 

i  Begin 

i  I  Build  tlie  Costtable  array  ) 

Cost  table  |  Count  I .  teat  tiretin  Copy  (Datain,  0  ,  6); 

I  Costtable  (Count). cl in  :  =  Copy  (Datain,  1,  4); 

1  Costtable  [Count  1 .descript  ;=  Copy  (Datain,  13,  27); 

I  Val  (Copy  (Datain,  40,  10),  Costtable  [Count] .manaint,  Errorcode I ; 

Costtable  (Count ] .basemaint  :=  Costtable  (Count )  .manaint  ; 


I  (  ICN  ll/W  Base  Maintenance  ) 

I  IF  (Costtable  (Count  I . featureno  > 

i  (Cost  table  I  Count  I . featureno  < 

i  Costtable  (Count ] .basemaint  := 


! 


'320100')  AND 
'420400')  THEN 
Costtable  (Count  ]  .manaint 
+  l/JN  Manaint  Esc  Rate 


1  l  LCN  S/W  (Vise  Maintenance  I 

)  FUSE  IF  (Costtable  (Count ). leatureno  - 

(Costtable  [ Count ). featuteno  = 
’  (Costtable  (Count  I . featureno  = 

I  (Costtable  ( Count  I . featureno  = 

I  (Costtable  I  Count ). featureno  - 

■  (Costtable  ( Count | . teat  in  eno  - 

'  Costtable  I  Count  I  .hasana  inf 


’55080)')  hr 
'550901')  OR 
'551001 ' )  OR 
'551101')  OR 
'551201 ’ )  OR 
'551301')  Till-.'! 

Costtable  (('ounl  [.vuiuml 
*  I, CM  MW  Esc  Rale 


I 


I  ISPEICENet  S/W  Rise  Ma  I  nten.ince ) 

)  EISE  IF  (Costtable  | Count  I  . featureno 


'550710')  or 


204 
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1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 
1  709 
1710 
1  71  1 

1712 

1713 
1  714 

1715 

1716 

1717 

1718 

1719 
1  720 

1721 

1722 

1723 
1  724 

1725 

1726 
1  727 
1728] 
1  729 
17  30 

1731 

1732 

1733 

1734 

1735 
17  36 
1737 
1  738 
17  39 
1740 
1  741 

1  742 
1  743 
1  744 
1  745 
1  746 
17  17 
1  748 
1  749 
1  750 


(Costtable  [Count] .featureno 
(Costtable  [Count]. featureno 
( Costtable  [ Count ] . featureno 
( Costtable  ( Count ] . featureno 
(Costtable  [Count ]. featureno 
(Costtable  [Count ]. featureno 
(Costtable  (Count i . featureno 
(Costtable  [Count  1 . featureno 
(Costtable  l Count]. featureno 
(Costtable  [Count]. featureno 
(Costtable  [Count ] .featureno 
(Costtable  [Count  1 . featureno 
(Costtable  [Count]. featureno 
( Costtable  ( Count  1 . featureno 
Costtable  [Count ] .basemaint  : 


'55071 1 ' ) 

OR 

'550803' ) 

OR 

'550903' ) 

OR 

'551003' ) 

OR 

'551103' ) 

OR 

'551203'  ) 

OR 

'551303'  ) 

OR 

'551304'  ) 

OR 

'551403'  ) 

OR 

'551500'  ) 

OR 

’551501 ’ ) 

OR 

’551502'  ) 

OR 

'551503' ) 

OR 

'551504'  ) 

THEN 

Costtable 

1  Count  |  .manamt 

SPLICENet  SW  Hunt  Fine  Rate 


(  Normal  Maintenance  Escalation  ) 

ELSE  Costtable  ( Count  ]  .mcmaint  :=  Costtable  (Count  I  .mexnaint 

*  Momaint_Esc_Rate; 


(  6100  ll/W  Purchase  Escalation  ) 

Val  (Copy  (Datain,  50,  11),  Costtable  [Count ] .purchpr ice,  Errorcode); 
IF  (Costtable  (Count  ]  .featureno  >  '450300')  7\ND 
(Costtable  [Count  ].  featureno  <  '450400')  IIIEN 
Costtable  ( Count  ]  .purchpr ice  Costtable  [Count  |  .fwurliprh'n 

(  6100  S/W  Purchase  Escalation  ) 

ELSE  IF  (Costtable  [Count  1 . featureno  >  '550701')  AND 
(Costtable  [  Count  J.  featureno  <  '550710')  '11IEN 
Costtable  [Count ] .purchprice  :=  Costtable  [Count  I .purchpr ice 


I SPLICENet  S/W  Base  Maintenance) 


ELSE  IF  (Costtable 

[ Count ] 

.  featureno 

= 

’550710' ) 

OR 

(Costtable 

[ Count ] 

.  featureno 

= 

'55071 1 ’ ) 

OR 

(Costtable 

[ Count  I 

.  featureno 

'550803' ) 

OR 

(Costtable 

[ Count ] 

.  featureno 

- 

'550903' ) 

OR 

(Costtable 

[ Count | 

.  featureno 

'551003' ) 

OR 

(Costtable 

i Count  I 

.  featureno 

'551  103'  ) 

OR 

(Costtable 

] Count  1 

.  f  ea  tureno 

= 

'551203' ) 

OR 

(Costtable 

l Count | 

.  featureno 

'551  303’  ) 

OR 

(Costtable 

( Count ] 

.  featureno 

- 

'551 304' ) 

OR 

(Costtable 

l Count | 

.  featureno 

= 

'551  403'  ) 

OR 

(Costtable 

1  Count  1 

•featureno 

= 

' 56 1 500'  ) 

OR 

(Costtable 

( Count  I 

.  featureno 

r 

'591501  '  ) 

MR 

(Cost  table 

1  Count  1 

.  featureno 

- 

’551802' ) 

MR 

(Costtable 

l Count  1 

.  featureno 

- 

'  551 503'  ) 

( iR 

(Costtable 

1  Count  1 

featureno 

' 551 804 ' ) 

nu 

Costtable  1 

Count ] . 

wsemaint 

= 

Costtable 

IG 

’  SPLICENet  SW  Burch  Esc  Pate 
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1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 
1  761 

1762 

1763 

1764 
1  765 
1  766 
1  767 
1  768 
1  769 

1770 

1771 

1772 

1773 

1774 

1775 
1  776 
1777 
1  778 
1  779 
1780 
1  781 
1  782 

1783 

1784 

1785 
1  786 
1  787 
1  788 
1  78“ 
1  790 
1  791 
1  792 

1  79  J 

1  7“4 


1  7“H| 
I  "‘9  j 
1  600  | 


(  Training  Escalation  ) 

ELSE  IF  (Costtable  [ Count ]. featureno  =  1 39XXXX' )  or 

(Costtable  (Count ). featureno  =  'XXXXXX' )  THEN 

Costtable  (Count) .purchprice  :=  Costtable  (Count I .purchprice 

*  Tra 1 n_Esc_Ra  t  e 

(  LCN  H/W  Purchase  Escalation  } 

ELSE  IF  (Costtable  ( Count  1 . featureno  >  '320100')  7\ND 
(Costtable  (Count  I . featureno  <  '420400')  WEN 
Costtable  (Count I .purchprice  :=  Costtable  (Count  I .purchprice 

*  LCN_Purch  Esc_Rate 

(FDC  SNA  Purchase  Escalation  1 

EI.SE  IF  (Costtable  (Count  I .  featureno  =  '550710')  THEN 

Costtable  [Count  I  .(mrchprice  :=  Cost  table  |  C<  unit  I  .put  Hipr  ice 

*  FDC_SNA_Purch_Esc_Rate 

|  1,04  S/W  Purchase  Escalation  ) 

ELSE  IF  (Costtable  [Count ). featureno  =  '550801')  OR 
(Costtable  [Count  1 . featureno  =  '550901')  OR 
(Costtable  (Count ]. featureno  =  '551001')  OR 
(Costtable  [Count ) .featureno  =  '551101')  OR 
(Costtable  [Count  1 .featureno  =  '551201')  OR 
(Costtable  [  Count ).  featureno  =  '551301')  WEN 
Costtable  ( Count  J.purclipr ice  :=  Costtable  ( Count  I  .puichprice 

*  LCN_SW_Esc_Rate 

(  Documentation  Purchase  Escalation  ) 

ELSE  IF  (Costtable  [Count  1 . featureno  >  '710000')  AND 
(Costtable  (Count!  .featureno  <  '749999')  WEN 
Costtable  (Count  I  .purchprice  Costtable  (Count.  I  .pm  dipt  p-c 

*  Document_Esc  Rate 

(  Site  Preparat ion  Installation  Escalation  ) 

EUSE  IF  Costtable  I  Count  I .  featureno  -  '000101'  WEN 

Costtable  [Count  I  .purchpt  ice  Sitelnfo.si  t e  in;:t  cost 

*  Instil  Esc  Rate 

I  Normal  S/W  Purchase  Escalation  ) 

ELSE  Costtable  | Count.  )  .purchprice  :  =  Costtable  l Count  |  .purchpt  ice 

*  Purch  Esc  Rate; 

I  Installal  ion  t'ost  Escalation  ) 

Va  l  (Copy  (Datum,  62,  10),  Costtable  |  t'ounf  I .  inst  ''osl  ,  Et  rnre  »le) ; 

IF  (Costtable  (  Count  | .  featureno  >  '490)00')  /MJ1 ) 

(Cost  table  |  Count  | .  1  eat  11  rent '  '450  lull'  I  WEN 

Costtable  (Count  | .  instcost  Costtable  (Count  I  .  inst  cost 

ELSE  IF  (Costtable  [Count  (.featureno  •  '550701')  AND 
(Costtable  (Count  | .  featureno  ■  '550800')  II l'3I 


206 


/•  . 

•>: 
m  • 
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1801 

Costtable  ( Count  1 . instcost  :=  Costtable  [ Count ). instcost 

1802 

ELSE  Costtable  i Count ). instcost  :=  Costtable  1  Count J . instcost 

1803 

*  Instal  Esc  Rate; 

1804 

1805 

1806 

READLN  (Textin,  Datain); 

1807 

Count  :=  Count  +  1 ; 

1808 

End; 

1809 

CLOSE  (Textin); 

1810 

End;  (  Procedure  BUILD  COST  TABLE  ) 

181 1 

1812 

1813 

PROCEDURE  DELIVERY  ORDER  TITLE; 

1814 

1815 

{  **  ************  **************************************************************  | 

1816 

(  This  procedure  generates  the  title  page  data  and  first  he_aders  to  be  ) 

1817 

(  by  the  "Hardware"  section.  The  data  is  written  out  to  the  diskfile  ) 

1818 

(  specified  by  the  user  when  prompted  for  an  ouput  file  Name.  ) 

1819 

£  ***************************************************************** ***** *** ***  | 

1820 

1821 

Begin  (  Procedure  DELIVERY  ORDER  TITLE  ) 

1822 

ASSIGN  (Diskfile,  PRN  File  Name); 

1823 

REWRITE  (Diskfile); 

1824 

WRITELN  (Diskfile,  . ,  . ,  . ,  . , 

1825 

'"Naval  SuppLy  Systems  Command  SPLICE  Delivery  Order"'); 

1826 

WRITELN  (Diskfile); 

a 

1827 

WRITELN  (Diskfile); 

1828 

WRITELN  (Diskfile,  ’"Site:  "',  ,  Siteinfo. siteno: 2 ,  ""  ,  ""  , 

1829 

Siteinfo.sitename,  ""  ,  '"  "',  '"  "', 

1830 

'"CONTRACT  N66032-84-D-0002"’  ,  . ,  "  ’  ,  '"  " '  , 

1831 

'"Effective  Date:  ',  Day:2,  Month:Lenqth  (Month)  <-  1,  Year:5,  ""  )  ; 

1832 

WRITELN  (Diskfile,  . . ,  . ,  . ,  . ,  . ,  '”  Initial  Order"' 1 ; 

1833 

WRITELN  (Diskfile); 

1834 

WRITELN  (Diskfile,  '"Hardware"'); 

1835 

HEADERS; 

1836 

End;  I  Procedure  DELIVERY  ORDER  TITLE  1 

1837 

1838 

1839 

Begin  (  Procedure  INITIALIZE  ) 

1840 

INIT  TOI'AIS; 

1841 

OPENING  SCREEN; 

1842 

PICK  A  SITE; 

1843 

BUILD  OUST  TABLE; 

1844 

DELIVERY  ORDER  TITLE; 

1845 

1  846 

End;  1  Proendnre  INITIALIZE  ) 

18  17 

i$I  SIM  .I1  'LC2 .  PAS }  (  He  hup  ot  work  t  <i »  k  '•  •  i-  n  •  »s  i ;  k  * !  •  :  i  •  •  1 

18481 

l  PROCEDURE  CONFIGURE  COMPONENTS; 

18491 

18501 

:  Var 
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1851  I 

(  Input  Variables  Used  For  Documentation,  Training  &  Maintenance  1 

18521 

Computer  Ops,  Hardware  Manual,  Programmer  Ref  : 

Integer; 

18531 

Sys  Programmer,  Training  Group,  Data  Communication  : 

Integer ; 

18541 

Hardware  Overview,  Operator  Training,  Sys  Resource  : 

Integer; 

18551 

SPLICENet  Workshop,  Sys  Tuning  Xray,  TAL,  Per  Call  Months  : 

Int'>jer ; 

18561 

18571 

18581 

PROCEDURE  CONFIGURE  HARDWARE; 

18591 

18601 

Var 

1861  I 

Cable  Distance  :  String  111; 

18621 

Add  Expansion,  Add  HYPERchannel ,  Add  Patchpanel,  Add  Syst mi 

:  Integer; 

18631 

AsyncCtrl,  AsyncExtbd,  AsyncPchpnl ,  A510,  Bitsync,  Bytesvnr 

:  Int^i'T; 

18641 

Crts,  D128MH,  D240MB,  D540MB,  ExpanCnb 

:  l :  it  e.  ],  a" ; 

18651 

HYPERCab,  LPM1000,  LPM600,  Patchl’anel,  Printers,  RdrPunch 

:  I  nt  rvjor ; 

18661 

SysCab,  TapeDrv,  Trunks 

:  I  ip  lie  ; 

18671 

18681 

18691 

PROCEDURE  INITIALIZE  HARDWARE  INPUT0; 

18701 

1871  I 

Begin  I  Procedure  INITIALIZE  HARDWARE  INPUTS  1 

18721 

(  Initialize  Variables  To  Default  Values  1 

18731 

Add  Expansion  :=  0; 

18741 

Add  HYPERchannel  0; 

18751 

Add  Patchpanel  0; 

18761 

Add  System  :=  0; 

18771 

AsyncCtrl  0; 

18781 

AsyncExtbd  :■=  0; 

18791 

AXXX  :=  0; 

18801 

AMO  :=  0; 

1881  I 

A1  50  :=  0; 

18821 

A220  : -  0; 

18831 

A400  :=  0; 

18841 

A510  0; 

18851 

EUtSync  :=  0; 

I  886 1 

ByfeSync  :=  0; 

18871 

Cable  Distance  'H'; 

18881 

CarlRdr  0; 

1  889 1 

Crfs  0; 

IB'»0i 

D 128MB  0; 

1891  I 

D240MI3  :  -  0; 

18921 

1)5  40MB  :•=  0; 

18931 

HYPERcab  : -  0; 

1884  I 

LIU  0; 

18951 

1, PM  1000  0; 

18%  I 

LPMoOt)  0; 

18971 

Prc*;nssors  0; 

1  8a8 1 

Printers  :=  0; 

18991 

RdrPunch  0; 

1  c'00 1 

TapeDrv  0; 
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19011  THYPERchannels  :=  0; 

19021  Trunks  :=  0; 

19031  End;  !  Procedure  IN ITIALI ZE_1  IARDWARE_INPUTS  ) 

19041 

1 905 I  PROCEDURE  <XX9_ERRUH; 

1  906 1 

1  9Q7 1  Beun  ■  Procedure  <)DD_ERROR  1 
19081  L"U>R  (IS,  4); 

1  909 1  a  O'  >XY  (18,  2rd  ; 

19101  WRITE  (*G,  '  Number  of  disks  must  lie  0  or  an  EVQ1  number!  '); 
191U  End;  I  Procedure  tXJD_ERRoR  1 
19121 
191  u 

19141  Pian'UllRE  '1,1 'AR  ME!  1! ’A'  111; 

1  9 1  S I 

19161  Begin  (  Procedure  CLEAR  MESSAGE  I 
1917!  Text  Background  ( 1  )  ; 

19181  U71DXY  (1,  25); 

19191  ClrEol ; 

19201  End;  l  Procedure  CLEAR_MESSAGE  I 
19211 
1  Q22I 

19231  PROCEDURE  GET_JIARDWARE_1NPUTS ; 

19241 


19251 
1926! 
19271 
19281 
1929! 
19  301 
1931  I 
19  321 
1  93  31 
1  9  341 
1  9351 
19  361 
I  “371 
19  38! 
1939! 
1940! 
1  941  1 
1  9421 
1  94  i  1 
19441 


Begin  (  Procedure  GET _l IARL)WAHE_ INPUTS  i 
screen_f ieldSS  :=  25; 
varSS  1; 
retrieveSS  : -  False; 
last_fieldSS  :=  False; 

DISPIAY  SCREED  (Screenf  i  le) ;  I  Display  Screen  I 


and  INPUT  items) 


REPEAT  | until  unswerSS  =  ’ Y'  I 
I  Display  Items.  Cliange  retrieveSS  to  Tru< 

REPEAT  (  until  actionSS  =  exitSS  I 
(’ASE  varSS  of 

1  :  GET  I  NT!  40 , 4 , 3 ,  '  N '  ,  Processors  ,  'mill'  ,  0 , 256 ,  r  etSS ,  ret  r  imi  'SB  ,'4,1  1  ; 
2:  (JET [NT ( 40 , 5, 3 ,  ’N1  .Printers,  '  :HH '  ,0,12,  retSS,  ret r  leveSB,  14,1); 

3:  llEI'I  NT!  40,  b,  3,  'N'  ,Crts,  '##>/'  ,0,999,  retSS,  retrievers,  14,1); 

4:  REPEAT 

GETINT!  40,7,3,  'N'  ,D1  38MB,  '  min'  ,0, 128,  let  SB,  ret  i  14,1); 

IF  ODD  (1)1  28MB 1  III  1-14  ODD  ERROR 
El.SE  CLKAR_ MESSAGE; 

UNTIL  not  ODD  (D128MI3); 

5:  PI-TEAT 


19451 

1  >4i,  [ 

I  >4  ’  i 
I  9481 
)'>49t 
19501 


GET  INI'!  40,8,  3,  *N'  ,I),M(IMB,  '  HH  if'  ,  0,1  7.9,  r .  u  i  i  1  1 ,'  I  ; 

IE'  odd  ( I >2 40MB )  HIED  "DD  ERROR 
NIDI.  CLEAR  MESSAGE; 

UNTIL  not  ODD  (D240MB); 
b :  REPEAT 

GETINT!  40,9, 3,  'N‘  ,D540MB,  'HUH'  ,0,  l,’8,ietss,|..|  ,  ..  11,1); 
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1951 1 
19521 
19531 
19541 
19551 
19561 
19571 
19581 
19591 
19601 
1961 1 
19621 
19631 
19641 
19651 
19661 
19671 
9681 
19691 
1970T 
1971 1 
19721 
19731 
19741 
19751 
19761 
19771 
19781 
19791 
1  r,80  I 
1981  l 
19821 
19831 
19841 
19851 
19861 
19871 
10881 
19801 
I  090  r 
19911 
19921 
19911 
19941 
1  995 1 
1  9%  1 

1  o'!  / 1 
I  998 1 
1  99«  I 
2000 1 


IF  ODD  (D540MB)  THEN  ODD_ERROR 
ELSE  CLEAR_MESSAGE ; 

UNTIL  not  ODD  ( D540MB ) ; 

7:  GETINTI 40, 1 0, 3 , 'N* .AsyncCtrl, '###' , 0 ,64 , retSS, retrieveSS, 1 4 , 1 ) ; 
8:  GETINTI 40,11 , 3 , ’ N ' , AsyncExtbd , ' ###' ,0, 2, retSS, retrieveSS, 1 4 , 1 ) ; 
9:  GETINT (40,12,3, 'N‘ .BitSync, ' ###' ,0 , 1 28 , retSS, retrieveSS , 1 4 , 1 1; 
10:  GETINTI 40,1 3,3, ’N' ,ByteSync, '###' ,0, 1 28 , retSS, retrieveSS, 1 4 , 1 ) ; 

1 1 :  GETINTI 40, 14, 3, ’N' ,TapeDrv, ' ### ' ,0, 1 28, retSS, retrieveSS , 1 4 , 1 ) ; 
12:  GETINTI 40, 15, 3, 'N' ,Rdr Punch, *  ### ' ,0, 1 2, retSS, retrieveSS, 1 4 , 1 ) ; 

1 3:  GETINTI 40, 1 6, 3, 'N' ,CardRdr ,'###',0,12, retSS, retrieveSS, 14,1); 

1 4 :  GETINTI 40 , 1 7 , 3 , ' N  * , LPM1 000 ,'###',0,16, retSS , retrieveSS ,14,1); 

15:  GETINTI 40, 18, 3, 'N* .LPM600 ,'###' ,0, 1 6, retSS, retrieveSS,  1  4 , 1 ) ; 

16:  IF  Stock_Point  =  'S'  THEN 

GETINTI  40, 19,3,  'N'  /Trunks, 1  ###'  ,0, 2, retSS,  retrieveSS ,  1  4 , 1  ) ; 
17:  GETINTI 40,20,3, 'N' ,LIU ,*###' ,0,256, retSS, retrieveSS, 14,1); 

18:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73 , 3 , 3 , ' N ' ,A400 ,'###',0,256, retSS , retrieveSS ,14,1); 
19:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73, 4, 3, 'N' ,A150, '###' ,0,256 , retSS, retrieveSS, 1 4 , 1 ) ; 
20:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73,5,3, ’N' ,AXXX, ’###' ,0,256, retSS, retrieveSS, I  4 , 1 ) ; 
21:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73,6,3, ' N ' ,A220, '###', 0 , 256 , retSS, retrieveSS , 14,1); 
22:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73,7,3, 'N ' ,A140, '###' ,0 , 256 , retSS, retrieveSS, 1 4 , 1 ) ; 
23:  IF  Stock_Point  =  'S'  THEN 

GETINTI 73,8, 3, ’ N ' ,A51 0, '###' ,0,256, retSS, retrieveSS, 14,1); 
24:  IF  Stock _Point  =  'S'  THEN 

GETINTI  73 ,9,  3, '  N '  ,THYPERchannels, 

'###' ,0,128, retSS, retrieveSS, 14,1 ); 

25:  IF  Stock_Point  =  'S'  THEN 
REPEAT 

GETITEM(75,20, 1 , *C' ,Cable_Distance, 

' U , retSS , retrieveSS ,14,1); 

IF  I  Cable_Di  stance  <  'A')  OR  (Cable_Distance  ’  F '  I  THEN 
Begin 

COLOR  0  5,  4); 

GtNOXY  (28,  25); 

WRITE  (~G,  '  Not  within  ramie  A  to  F  '); 

End 

FJSE  CLEAR_MESSAGE; 

UNTIL  (Cable_D istance  > -  'a')  AND  (Otblel)i stance  •=  '1'); 
End;  (  CASE  ) 

IF  varSS  -  screen_f  ieldSS  THEN  last_fieldSS  :  =  True; 

RET  iTTATUS;  I  Oieck  cole  in  "retSS".  Set  "varSS"  and  "act  ninSS" 

I  i "heck  to  see  whether  to  switch  retrieveSS  to  lrun  I 
IF  last  fieldSS  i\ND  (not  retrieveSS)  THEN 
Begin 
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20011 

retrieveSS  ;=  True; 

20021 

last_f ieldSS  :=  False; 

20031 

actionSS  :=  staySS; 

20041 

varSS  :=  1  ; 

20051 

End 

20061 

ELSE 

20071 

las t_f ieldSS  :=  False; 

20081 

UNTIL  actionSS  =  exitSS; 

20091 

ACCEPT_INPUTS; 

20101 

UNTIL  answerSS  =  'Y'; 

20111  End;  {  Procedure  GET_1 1ARDWARE_ INPUTS  } 

20121 

20131 


20 1  4 1 
20151 
20161 
20171 
20181 
2019T 
20201 
2021  I 
20221 
20231 
20241 
20251 
20261 
20271 
20281 

202  'I 
20301 
2031  1 
20321 

203  3  1 
20341 
20351 
20361 
20  371 
20  38 1 
20  39  L 
20401 
2041  1 
20421 
20431 
20441 
20451 
20461 
20471 
2040  I 
20491 
2f  501 


PROCEDURE  AUDIT [ONAL_CABLML-;rS ; 

Begin  (  Procedure  ADDITIONAL CABINETS  I 
screen_f  ieldSS  ;=  3; 
varSS  :  =  1  ; 
retrievoSS  :=  False; 
last_f ieldSS  False; 

DISPLAY_SQ’EEN  ( Screen Ci Le I ;  (  Display  Screen 


GCTINT( 40,4,3, 'N' 
GETINTI 40,5,3, 'N' 
GET [NT ( 40,6,3, 'N' 
GtTINTI 40,7,3, 'N‘ 
GETINTI  40,8,3,  'N‘ 
GETINTI 40, 9, 3,  ’N' 
GETINT  (  40 , 1 0 , 3 , ' N 
getinthoji  ,  3,'n 
GETINTI  40 , 1 2 , 3, "N 
GETINTI  40 , 1 3 , 3 , ' N 
GETINTI 40,14,3,  'N 
GETINTI  40, 1  5, 3,  'N 
GLTINTl  40,16,3,  'N 
GETINTI  40,17,3,  'N 
GLTINTl  40,18,3,  ’  N 
II’  Stack  Point  - 
GLTINTl  40 ,19,  3 
GLTINTl 40,20,3,  'N 
IF  Slock  Point  - 
Beg  i  n 

GLTINTl  7  3 
GLTINTl  7  3 
GLTINTl  7  3 
GIT  INTI  7  3 
GIT  |  NT  I  7  1 
GLTINTl  7  3 
GLTINTl  7  3 
'  IITTTEMI  r 


Processors,  'HHH'  , 0, 256, retSS, False,  1 4, 1 
Printers,  'HHH'  ,0,12,  retSS,  False,  14,1  ) ; 
Crts,  '//##'  ,0,999, retSS, False,  14,1  ); 

D1 28MB,' HHH' ,0,1 28, retSS, False, 14,1 ) ; 
D240MB, '###', 0,1 28, retSS, False, 14,1 ); 
D540MB, 'HHH' ,0,1 28, retSS, False, 14, 1 ); 
,AsyncCtrl , 'HHH' ,0,64, retSS, False, 1 4, 1  ) 
, AsyncExtbd ,  '  lift  ft'  ,0, 2, retSS, False,  1 4, 1  ) 
.BitSync, 'HHH' ,0, 128, retSS, False, 14, 1 ) ; 
,  ByteSync,  '  HhH'  ,0,128,  retSS, False,  14,1  ) 
,1'apeDrv,  'HUH'  ,0, 1  28, retSS, False,  1  4 , 1  )  ; 
,RdrPunch, 'HHH' ,0, 1 2 , retSS, False, 14,1); 
,CardRdr,  ’  HHH '  ,U ,  1 2 ,  retSS, False,  1 4 , 1  1 ; 

, I.PM1000,  'HHH' , 0,16, retSS, False,  14,1  ); 
,LPM600, '###' ,0,1 6, retSS, False,  14,1 ) ; 

S'  THEN 

'N'  ,  Trunks,  '  HHH'  ,  0,2,  retSS,  False,  1  4  , 1  ) 
LIU,  '  H  lift'  ,0 ,256,  retSS,  False,  1  4 ,  1  )  ; 

'  THEN 


); 


'  HHH '  ,0,256,  retSS,  False,  1  4 
'HHti'  ,0,256,  retSS ,  Fa  1  se ,  1  4 
'  HHH ' ,0,256 , retSS, Fa  1 se, 1 4 
'HHti'  ,0,256,  retSS,  False,  l  4 
'HHH' ,0,256, ret  SB, False, 1 4 

'IHIH'  ,  0,256,  roIGS,  Fu  Is- 


3,  3,  Tl'  ,A400, 

4. 3,  'N' ,A160, 

5.3,  'N' , AXXX , 

6.3,  'N' , A2  20 , 

7,  1,  'N'  ,A1  40, 

8. 3,  'N' , A5 1 0 , 

9,  3,  Tl1  , 44  lYPERchani  le  Is ,  '  HHH'  ,0,128,r» 
,20,1  ,  ,Cable_Distance, ' ij •  ,  '  '  , '  1  ,  r. 


,1  1 
,  1  ) 
,  1  1 
,  i  ) 
,  1  1 
1,D 


3 , Fa  1 se 
3,  Fa  1 se 


11,1); 

11,1); 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  75 


Page  42 


SPLICE. PAS- include  file  SPLICE2.PAS  Program  Listing 


2051 1 
20521 
20531 
20541 
20551 
20561 
20571 
20581 
20591 
20601 
2061 1 
20621 
20631 
20641 
20651 
2066  I 
2PH7I 
20681 
20691 
20701 
2071  I 
20721 
20731 
20/41 
20751 
20  76! 
207-  [ 
20781 
2070 1 


End; 

GETINT! 68 , 1  3,2,  'N1  ,PatchPanel,  '  ##'  ,0, 16, retSS, False,  14,1  ) ; 

GETINT (68,14,2, 'N1 ,SysCab, '##’ ,0, 16, retSS, False, 1 4 , 1 ) ; 

GETINT! 68,15,2, 'N' .ExpanCab, ' ##' ,0, 1 6 , retSS .False, 1 4 , 1  ) ; 

REPEAT  f  until  answerSS  =  'Y‘  ! 

(  Display  Items.  Change  retneveSS  to  True  and  INPUT  items) 

REPEAT  (  until  actionSS  =  exitSS  I 
C\SE  varSS  of 

1 ;  GETINTI 75, 13,2, 'N' , Add_PatchPanel , 

'##* , 0,8, retSS, retneveSS, 14,1  >; 

2:  GETINT! 75 , 1 4 , 2 , ' N 1 ,  Add_System, 

'it#'  , 0,8 , retSS, retrieveSS,  14,1); 

3:  GETINT( 75, 15, 2, 'N‘ ,Add_Expansion, 

'  #tt '  ,0,8,  retSS,  retrieveSS,  14,1  ) ; 

End;  (  CASE  ) 

IF  varSS  =  screen_f leidSS  THEN  Iast_fieldSS  :=  True; 

REr_STATUS;  (  Qieck  the  code  in  "retSS".  Set  "varSS"  and  "actionSS"  ! 

t  Check  to  see  whether  to  switch  retrieveSS  to  true  ) 

IF  last_f leliJSS  AND  (not  retrieveSS)  THEN 
Begin 

retrieveSS  True; 
last_f ielciSS  :  =  False; 
actionSS  staySS; 
varSS  1; 

End 

12  oL 


20801  last_f ieldSS  :=  False; 

2D8H  I'l.TII,  acLionSS  -  exitfiS; 

20821  ACCEPT_  INPUT'S  ; 

208  31  UNTIL  anSwerSS  =  'V'; 

20841  End;  1  Procedure  ADDITIONAL  CA13INEIS  ( 

20851 

20861 

208 7 1  PP<  X  TIDI  IRE  I'RINTJIW; 

POBOI  '  +  *  +  +  **  +  **'**+*'*  +  ****  +  **  +  +  *  +  +  +  '**  +  **  +  '*,*  +  +  *****  +  *f'+  +  +  +  +  **'*  +  +  +  +  **  +  +  +  '*'ir  +  +  +  *'*  tut  | 

20891  I  Tins  routine  is  used  m  the  hardware  general  ion  process  to  set  i.p  the  I 
20901  (  necessary  parameters  to  lie  used  by  PFINTJIW  when  called.  I 

2092 1 


20931  Begin  i  PRt.XIDURE  PR1NTJIW  1 
20941  Ma i nt  Factor  Momaint  EsrRate; 

2095 r  Extended  Price  'Quantity  *  P'ostTabl e|  I  I . p"1  chpr  ice; 

20%  1  LINE  _SEriiP; 

20981  I  Compute  System  Downtime  Credit  Component  Factor  per  >:»>»»*  h  ' 


21001  cyst  em_Downt  line  Component  System  I> wit  line  Cempnnent  » 


APPENDIX  B:  MAINTENANCE  MANUAL 


Page  76 


Page  43 


SPLICE. PAS-include  file  SPL1CE2.PAS  Prograin  Listing 


(Quantity  *  CostTablel I ] .basemaint 
*  Maint_Factor ) ; 

j  it******************************************************  j 

1  Compute  the  Component  Downtime  Credit  Factor  per  hour  I 

j  ******************************************************* ) 

Downtime_Credit  :  =  (( (CostTablel 1 1 . pur chpr ice  +  CostTablel I J . instcost )  /  481 
+  (CostTablel 1 1 .basemaint  *  Maint_f actor ) )  *  0.005; 

WRITELN  (Diskfile,  ,  Line_Number : 7 ,  CostTablel I ). featureno: 8 , 

CostTablel  1 1  ,descript:28,  Quantity:3, 

CostTablel  1 1 . purchpnce:  1 3:2,  Extended_Price:  1  2:2, 

CostTablel I ] ,basemaint:9:2,  Maint_Factor :8: 3 ,  Maint_Months: 5 , 
Quantity  *  CostTablel 1 1 .basemaint  *  Maint_Factor 
*  Maint_Months: 1 2:2,  'CostTablel I j .instcost: 8:2, 

CostTablel 1 1 . instcost  *  Quantity:9:2,  Dcwntime_Credit :  9 : 2 , 

(Quantity  *  CostTablel 1 1 .basemaint  *  Maint_Factor ) : 9: 2 ) ; 

End;  (  Procedure  PRINTJIW  ) 


PROCEDURE  CONFIGURE  PROCESSING  SUBSYSTEM; 


OSP  :  Integer; 


PROCEDURE  OUMPUTE_PROCESSORS ; 

[»***♦»***»*****«*»***»**♦**********♦**»****  +  «**♦***♦*******»»*♦***»■♦  +  »♦*»•»  I 

(  This  procedure  outputs  a  series  of  screens  prompting  the  user  to  pro-  1 
1  vide  the  necessary  inputs  required  to  generate  the  processor  related  } 

I  data  for  the  desired  configuration.  Each  input  is  checked  to  determine  I 
1  whether  OR  not  the  response  is  positive  OR  within  the  necessary  limits,  t 

(*****************************»*«****-*•»*******»»**»*****»*************»»*»») 

Begin  I  Procedure  OJMPUTE_PROCESSORS  ) 

Quantity  Processors; 

I  :  =  I  «-  1  ;  {  1=2  Processors  on  delivery  order  1 

IF  (Quantity  >  0  THEN  PRINTJIW; 

I  : =  I  *  1 ;  1  1=3  Uses  #  of  Processors  to  dote! mine 

it  extra  2MB  memory  modules  to  order  ) 

IF  (Quantity  >  0  THIN  PRINTJIW; 

IF  (Sitelnfo.siteno  =  2)  OR  (Sitelnto.si teno  =  3)  'II 1121 
Beg  i  n 

l  :  =  I  <-  1  ;  1  1=4  Floating  Point  Arithmetic, 

only  ordered  by  I- ‘•ISO  Siler-  ( 

IF  Quantity  >  0  THEN  PRINTJIW; 

End 

El oE  I  :=  I  *■  1; 

(  Tin?  following  routine  determines  the  number  of  OSPs  to  older,  i 
I  one  oSP  is  required  per  in  Processors.  I 
I  :=  1  *  1;  1  1=5  OSP  1 

(ISP  :=  Processors; 
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21511  WHILE  OSP  MOD  1 6  >  0  DO 
21521  OSP  :=  OSP  +  1 ; 

21531  Quantity  :  =  OSP  DIV  16; 

21541  IF  Quantity  >  0  THEN  PRINTJIW; 

21551  End;  (  Procedure  COMPUTE_PROCESSORS  } 

21561 

21571 

21581  PROCEDURE  OOMPtnE_CRTS_PTRS ; 

21  591  {***♦**»*********»»*♦**»***»****»»*»**************»******»*****»***  +  ***»*»♦  i 

21601  {  This  routine  computes  the  number  of  Centronics  Printers,  CRTs  and  OSP  * 
21611  (  interfaces  required  on  the  delivery  order.  ( 

21621  {*********************♦★******************************** ******************* i 

21631 

21641  Begin  IProcedeure  COMPtiTE_CRTS_PTRS  } 


21651 

(Quantity  :  = 

Printers; 

21661 

I  :=  I  +  1 ; 

(  1=6 

Serial  Printers  1 

21671 

IF  (Quantity 

>  0  THEN  PRINTJIW; 

21681 

Quantity  := 

Crts; 

21691 

I  :=  I  +  1 ; 

(  1  =  7 

Crts  1 

21701 

IF  Quantity 

i  0  THEN  PRINT  HW; 

2171 1 

Quantity  :  = 

OSP  DIV  16; 

21721 

I  :=  I  +  1 ; 

(  1=8 

Printer  Interfaces 

21731  IF  'Quantity  ’  0  THEN  PRINTJIW; 

21741  End;  (  Procedure  OOMPUTE_CRTS_PTRS  ) 

21751 

21761 

21771  PROCEDURE  (XK-lPUTE_G*d3INETS; 

21791  {  The  following  routine  estimates  the  number  of  Patch  Panel  Cabinet?  i 
21801  i  and  permits  the  user  to  increase  this  for  reserve/expansion.  ; 

21821 
21831  Var 

21841  Contiqlb,  Slots,  Temp  :  Integer; 

21851 

21861 

21871  Begin  I  Procedure  (JUMPUTTJCABINETS  I 
21881  i'>'>mp  :  =  Processors; 

21  90 1  i  Sufficient  system  cabinets  to  house  the  number  of  Process*  •r's  7  i 

21921  WHILE  ( Temp  MUD  4)  >  0  DO 
21931  Temp  : =  Temp  t  1 ; 

21941  SysCuh  Temp  DIV  4; 

21 '*5 1  IF  (Processors  >  0)  AND  (SysCnb  II  THEN 

2i'«.r  SysCib  :  =  I; 

■  ’I'l'I  !  I  he  I  ol  lowing  routine  '>stimh's  I!*'  numl'or  ol  Patchl'anel  Cabinet  • 
2P»81  IF  SysCab  -  1  THEN 

2 1'1'*  I  Patchl’ane]  :  =  i 

..'.’Uhl  ELSE  IF  SysC.ib  -  n  THEN 
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22011  PatchPanel  :=  0 

22021  Else  IF  SysCab  >  1  THEN 
22031  PatchPanel  :=  SysCab  -  1; 

22041  (  The  following  routine  estimates  the  number  of  Expnasion  Cabinets  i 

22051  ExpanCab  :=  0; 

22061  Config16  :=  Processors  DIV  16; 

22071  IF  (Processors  >  (16  *  Configt6  +  4))  AND 
22081  (Processors  <  (In  *  (Config16  »  1)  +  5))  THEN 

22091  ExpanCab  Configlb  ♦! 

22101  EeSE  ExpanCab  Config16; 

22111  IF  (Processors  >  4)  AND  (Processors  '  21)  THEN 
22121  ExpanCab  1; 

22131  ADD  1 T  UJNALJL’AB  I  NI-.TS ; 

22141  Slots  :  =  SysCab  *  24; 

22151 

22161  (  The  following  ;>errm  t  s  the  user  to  increase  i  lie  nimu»*r  ■■(  , 

22171  !  Patch  Panel  Cabinets  for  i'':;ervt>/“y.|)iiiiSK’n. 

22181  'quantity  :=  PatchPanel  ♦  AddJ’atchPanel ; 

22191  I  I  ♦  1  ;  (  I -a  Patch  Panel  Oitu  nets  1 

22201  IF  quantity  >  0  THEN  PRLNTJIW; 

22211 

22221  (  The  following  permits  the  user  to  increase  the  nuru«-r  o ;  , 

22231  1  System  Cabinets  for  reserve/,  •xuins  ion.  i 

22241  'Quantity  :  =  SysCab  *  Add_System; 

222  51  1  :=  I  +  1;  (  1*10  p.yst  <uns  1  'am  net  s  • 

22261  IF  quantity  >  0  THEN  PRINTJIW; 

22271  Quantity  3  *  (SysCab  ♦  Add_S. sf om) ;  (3  l.1'  i'ewer  Mo  files  Sys»  .-in  r.tlutiet  1 

22281  I  :=  I  *  1;  "  ’  (  1  =  11  I/O  Power  Mu  In  |eS  •  n  I 

2229 1  IF  (quantity  >  0  'll  UN  PRINT  i!W; 

22301 

22311  (  I'he  following  permits  the  user  to  increase  tlf  nuni-u  .  t  i 

22321  (  Expansion  Cabinets  tot  reserve/ex;vinsion.  : 

22331  fuantity  ExpanCab  *  Add  Expansion; 

22341  I  I  ►  1;  I  1  =  12  Expinri  ti  ■  r i" •  • 

22351  IF  quantity  >  0  THEN  PRINTJIW; 

22  361  End;  I  i’roeolure  9  IMPUTE  J  AH  I  NETS  1 

22371 

22  381 

22 39 1  Bogin  I  O  NFliniRE  PROCESSINC  SI  IHSYS’IEM  1 


22401 

O  inr'ITK  i  'It  *  ’ESSf  IRS ; 

224!  I 

<  '.MP* ”1E  (TITS  PIT'S; 

2242! 

tUMPrn-:  "cabinets; 

2  24  3  1 
2244! 
22  ir  1 

End;  1  t  *  /(IF  I  CURE  PROCESS 

INC  SI  41NYSTE’- 

224f- 1 

iTM'EIORK  .VNKlCfPi:  SlORAdi 

•:  subsystem; 

224>'I 
4'* I 

; 'p' < ’E12 ;pi;  fu-ipirn-:  disk; 
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DiscCtrlr,  DiscPatchPnl ,  TIlYPERPatchPnl  :  Integer; 


{  The  following  procedures  determine  the  number  of  discs,  disc  ! 
(  controllers,  disc  patch  panels,  and  Patch  Panel  Cabinets  to  be  ordered  I 
1  The  reason  that  PATCHPNL  must  be  called,  which  includes  THL  and  ASYNC/  i 
t  SYNC  routines,  from  the  disc  procedure  is  to  maintain  the  NAVSnp  t 
1  required  deliver1/  order  sequence.  Discs  are  in  even  quantities  due  to  I 
I  the  "mirrored -disc"  requirment  in  SPLICE.  I 


PP(  X.’I:.TX  'RE  COMPUTE  PA'ICII  TANEI.S; 


Pe-im  i  Procedure  CDMPf ,T’E_PAT'CII  PANEI.S  I 

111  scCt  rl  i  :=  (111  20MB  .  U24UMIS  .  D540MHI  DIV  2; 

If-  (DiscCtrlr  MUD  2)  >  0  THEN  DiscCtrlr  :=  DiscCtrlr  *■  1; 
quantity  DiscCtrlr; 

WHII£  (Quantity  MOD  4)  >  0  DO 
Quantity  :=  'Quantity  ♦  1; 

DiscPatchPnl  :=  Quantity  DIV  4;  (  4  disc  controllers  per  Disc  Patch  Panel 


Quantity  :=  DiscPatchPnl; 

I  :  =  I  *  1  ;  (  1  =  13  Disc  Patch.  Panels  I 

IF  Quantity  >  0  THEN  PRINTJIW; 

I  I  *  1;  i  [-14  TAN1  'EM  HYPER  lank  Pat.-h  Pme  is 

IF  etock_Point  =  'S'  THEN  t  Is  the  site  l  Stock  Point  site;’  > 

IF  (THYPERchannels  >  0)  and  CH I  YPERchanne Is  <  5)  THEN 
Peg  in 

Quantity  : =  i ; 

PRINTJIW; 

End 

El  SE 

Beg  in 

TIlYPERPatchPnl  THYPERciiannels  *  2; 

WHILE  ( 'll IVPERPa t chPn  1  MUD  4)  '  0  Do 

THYPKRPatehl'nl  niYPERPatchPn  l  v  I; 

TllYPEPraf chl’n  1  TNYPERPaf chl’nl  DIV  4; 

Quant l ty  IHYrEHI'atchPnl  DIV  4; 
lr  Quantity  ’  U  n  11-14  PRINT  HW; 

End ; 

Quantits  AsyncCtt  1  ; 

i  : -  I  »  1  ;  i  1-15  ASYNC  Patch  Panels  i 

IF  Quantity  ■  U  IHKJ  PRINTJIW; 

I  :  =  I  *-  l  ;  1  1-16  SYNC  Pitch  Panels  i 

IF  H.'esync  ■  0  THEN 

-  '  nl,-  BYTE  SYNC  lines  inquire  SYNC  Patch  Panels  ' 


quantity  Pyt  '-sync ; 
PRINT  IIW; 


••V-.-'.-V 


w  X."  r,rT^rw^  *.”V  ^_* 
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23011  End; 

23021  End;  {  Procedure  COMPUTE_PA'rCH_PANELS  ) 

23031 

23041 

23051  PROCEDURE  ( X JMPUTE_D  I SK  J.XJMTONI-INT'S ; 

23061 

23071 

23081  Begin  I  Procedure  OOMPUTEJ ) I SK_0)MI' JJENTS  } 
23091  Quantity  :  =  DiscCtrlr; 


23101 

l  :=  i  ‘  i; 

:  1  =  17 

Disc  Controllers  ) 

23111 

IF  quantity  >  0  THEN  PRINTJ1W; 

23121 

'Quantity  :  =  D128MB  DIV  2; 

i  Two  drawers  in  each 

1  28MB 

drive 

231  31 

1  :=  I  ♦  1  ; 

1  1  =  18 

1 st  Drawer  of 

128MB 

Discs 

23141 

IF  Quantity  >  0  THEN 

23151 

Begin 

23161 

PRINT  UW; 

23171 

I  :=  I  +  1  ; 

i  1  =  19 

2nd  Drawer  of 

128MB 

Discs 

23181 

PRINTJfW; 

23191 

End 

23201 

EISE  I  :=  t  ♦.  1  ; 

2321  I 

Quantity  :  =  U240MB; 

23221 

1  :=  1  +  l  ; 

t  1  =  20 

240MB  Discs  1 

23231 

IF  Quantity  >  0  THEN  PRINT  HW; 

23241 

Quantity  :  =  D540M13; 

23251 

I  :  -  1  *■  i ; 

1  1-21 

540MB  Discs  1 

23261 

IF  Quantity  >  0  THEN  PRINT  IIW; 

23271 

End;  1  Procedure  0’JMTU'I'E_DISK_O,'MP0NENTS  1 

23281 

23291 

23301  Begin  1  Procedure  C0MPU1E_[)1SK  i 
2  3  311  (X’MPI  m :  PaTCI  ijwjei  s  ; 

2 3 32 1  CU'-U’LTE  jlISK_COMn  >NENi S ; 

233  31  End;  (  Procedure  OOMPliTE_D[SK  I 
23341 

23351 

2  3  361  PR( X.'EDURE  Ct JMPl  !TE  TAPE ; 

23371 

23  381  j'*r+******'******'**r  +  +  r**  +  ****'+'*  +  *r*+**'*'*’*'+**  +  t'**r***'***  +  +  +  **'*+4*t  +  ; 

23391  (  This  procedure  determines  the  numljer  ol  Taj*>  Drives  and  T  i|  «■  -  i 
23401  (  Controllers  to  be  output  on  tlie  delivery  order.  i 

2341  I  (♦'♦♦♦♦♦♦♦♦♦♦♦♦♦  +  +  +  ******  +  *+  *t  +  +  *-t  +  *«'+»'*****r*  +  *****+*+***  +  +  +  +r*«1 

23421 

234  31  Begin  I  Pirscedure  CUMPtri'ETAPE  i 

2  3 4 4  1  wilt.  1 1  y  :  -  TapeDrv ; 

2  3451  ir  y mailt  1 1  y  ■  0  THIN 
.  :3461  I ’em  n 


2  ’4  71 

l  ;  =  1  *  1  ; 

■  1-72 

>nl  n '!  1  »*j 

2  3  481 

PRINT  IIW; 

23491 

I  :=  I  *■  l  ; 

.  1  =23 

TcU>"* 

Drives  1 

2.3501 

1  R I  NT  1 IW ; 

APPENDIX  B:  MAINTENANCE  MANUAL  Page  81 


Page  48  SPLICE. PAS-include  file  SPLICE2.PAS  Prograjn  Listing 


23511  End 

23521  ELSE  I  :=  I  +  2; 

23531  End;  {  Procedure  OOMPUTE_TAPE  ) 

23541 

23551 

23561  Begin  {  Procedure  OONF IGURE_STORAGE_SUBSYSTEM  ) 

23571  CDMPUTE_DISK; 

23581  COMPUTE_TAPE; 

23591  End;  {  Procedure  CONFIGURE JSTURAGE_SUBS¥STEM  ) 

23601 

23611 

23621  PROCEDURE  CDNFIGURE_INPUTJ3UTPUT_SUBSYSTEM; 

23631 

23641 

23651  PROCEDURE  COMPUTE_READER_PUNCHES ; 

2366 1  { +  *******************************1**************** *****♦+♦* ****** *********t*  | 

23671  (  This  procedure  determines  the  number  of  Reader/Punches  and  Card  Readers  ) 
23681  {  to  be  output  on  the  de Livery  order.  1 

23691  { it**************************************************************-**  ♦+*****♦*  j 

23701 

2371  1  Begin  <  Procedure  COMPUTE J1EADER_PUNCIIES  ) 

23721  Quantity  :  =  RdrPunch; 

23731  I  :=  I  +  1 ;  I  1=24  Card  Reader /Punches  I 

23741  IF  Quantity  >  :.)  THEN  PR1NTJIW; 

23751  Quantity  :=  CardRdr; 

2 3 76 J  I  :=  I  *  1 ;  (  1=25  Card  Readers  I 

23771  IF  Quantity  >  0  THEN  PRINTJIW; 

23781  End;  {  Procedure  00MPUTE_READER_PUNC1  IES  ) 

23791 

23801 

23811  PROCEDURE  CUMPUTE_L INE_PR INTERS ; 

23821 

23831  («*******M«*«tt**«**»*M*m.***»*m.***»*...*t»mt.**»**»*mH*<t*| 

23841  (  Tins  procedure  determines  the  number  of  1000  LPM  and  600  LPM  Printers  I 
23851  {  to  be  output  on  the  delivery  order.  j 

23861  (****♦***»*******»*♦**»**«****************»**♦* t»****t *»»***. ****♦»♦ *«**, 

23871 

23881  Begin  (  Procedure  OJMrU'lE_LINE_PRINTERS  1 


23891 

Q>ianl :  i  t  y  :  = 

RdrPunch 

i  CardRdr 

*  I.PM1 000  *- 

LPM600 ; 

23901 

I  :=  I  ♦  1  ; 

(  1  =  26 

Line  Ptr/Crd  Rdr  Ctrl 

2391 1 

IF  Quantity 

>  0  THEN 

PP.INTJIW; 

23921 

Quantity  := 

LPM1000; 

23931 

I  :=  I  *  1  ; 

(  1  =  27 

1000  I, PM  Printers  1 

23941 

IF  Quantity 

>  0  THEN 

PRINTJIW; 

2  3951 

Quantity  := 

LPM600; 

2  396! 

I  :  -  I  f  1  ; 

1  1=28 

600  l .PM  Print..,:-,  j 

2  59  7  1 

IF  '.limit  ity 

•  o  'rut i 

PRINT  IIW; 

23981  End;  l  Proceduio  COtUUTE_LlNE_PR LiJ’lERS  | 

239qI 

24001 
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24011  Begin  (  Procedure  ODNFIGURE_INPUT_OUTPUT_SUBSYSTEM  } 

24021  lXMPmE_READER_PUNCI  IES ; 

24031  COMPUTE J,INE_PR  INTERS ; 

24041  End;  {  Procedure  CONFIGURE_INPUT_OUTPUT_SUBSYSTEM  ) 

24051 

24061 

24071  PROCEDURE  CONFIGURE_OOMMUNICATIONS_SUBSYSTEM; 

24081 

24091 

24101  PROCEDURE  COMPUTE_FOX; 

24111  [it*******************************-************************************-***-***) 

24121  t  This  procedure  determines  the  number  of  FOX  fibre  optic  controllers  and  1 
24131  (  lines  to  be  output  on  the  delivery  order.  FOX  permits  SPLICE  nodes  of  ' 
24141  (  16  OR  less  Processors  (which  are  co- located  within  1000  meters)  to  lie  ) 
24151  (  directly  interconnected.  I 

24161  . . . 

24171 

24181  Begin  (  Procedure  COMPUTEJDX  ) 

24191  I  :=  I  +  1;  {  1=29  Skips  Interprocessor  Bus  ) 

24201  IF  Processors  >  16  THEN 
24211  Begin 

24221  I  :=  I  +  1;  (  1=30  FOX  CTJTRLs  for  >  16  unit  system  ! 

24231  Quantity  :=  Processors;  1  Processors  >  16?  If  so,  order  FOX  ! 

24241  WHILE  Quantity  MUD  16  >  0  DO 

24251  Quantity  :=  Quantity  +  1; 

24261  'Quantity  :=  Quantity  DIV  16; 

24271  PRINTJIW; 

24281  I  :=  I  ♦  1;  (  1=31  FOX  cables  ) 

24291  Quantity  :=  'Quantity  -  1; 

24301  PRINTJIW; 

24311  End 

24321  El  EE  I  : =  L  »  2; 

24331  End;  (  Procedure  COMPUTE J-QX  I 

24341 

24351 

24  361  PROCEDURE  OOMPUTEJ I Y  FERC!  IANNEUS ; 

24371 

24  3H  I  (  *»♦**»»***»******»****♦»**.♦*♦*♦****♦»*♦**♦■•♦****■»*♦*♦♦**»♦♦  +  *♦■►*.  ♦  ♦  ) 

24  391  I  This  procedure  is  called  by  t.t  MlvniJJJFWUNlCA'l'K  fl_Sl!liS'i'S5TEM  and  I 

24401  i  is  invoked  only  for  the  conf iguration  of  Stock  Point  Sites.  It  I 

24411  i  uses  the  user  inputs  for  HYPERchannel  ,ida[)ters  and  connections  to  i 

24421  ■  write  out  t.fie  correct  HYPERchannel  comjoi lent  site  guantities  <11  i 

24431  I  flip  delivery  order.  Selected  ccmponets  are  written  to  disk  via  I 

24441  1  the  PRINTJIW  routine.  ! 

24451 
24461 
244  7! 

2448!  PROCEDURE  EXTItiJIYPERCAUINETS; 

24491 

249)1  iv»nn  •  Procedure  EXTRA  HiPERCABINETS  ) 


21  9 
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24511  Add_H  YPERChanne 1  :=  0; 

24521  COLOR  (15,  1 ); 

24531  GORKY  (51  ,  16) ; 

24541  WRITE  ( ' HYPERchannel 1 ) ; 

24551 

24561  screen_f ieldSS  :  =  1 ; 

24571  varSS  :  =  1  ; 

24581  retrieveSS  :=  False; 

24591  last_fieldSS  :=  False; 

24601  retSS  :=  "; 

24611 

24621  IF  Stock_Pomt  =  'S'  THEN 

24631  GETINTf 68,1 6,2 , ‘N’ , HYPERCab, 1 ' ,0, 1 6, retSS, False, 1 4 , 1 ) ; 

24641 

24651  REPEAT  (  until  answerSS  =  'Y*  ) 

24661  (  Display  Items.  Change  retrievers  to  True  and  INPUT  items) 

24671  REPEAT  {  until  actionSS  =  exitSS  ) 

24681  IF  Stock_Point  =  'S'  THEN 

24691  GETINT(75, 16,2, ' N ' , AddJIYPERchannel , ' HU ' ,0 ,8 , retSS , retrieveSS , 1 4 , 1 ) ; 

24701 

24711  last_fieldSS  :=  True; 

24721  RET__STATUS;  {  Check  the  code  in  "retSS".  Set  "varSS"  and  "actionSS"  1 

24731 

24741  (  Check  to  see  whether  to  switch  retrieveSS  to  true  I 

24751  IF  last_f ieldSS  AND  (not  retrieveSS)  THEN 

24761  Begin 

24771  retrieveSS  :  =  True; 

24781  last_fieldSS  :=  False; 

24791  actionSS  :=  staySS; 

24801  varSS  :=  1; 

2481  1  End 

24821  ELSE 

24831  last_f ieldSS  :  =  False; 

24841  UNTIL  actionSS  =  exitSS; 

24851  ACCEPT_ INPUTS; 

24861  UNTIL  answerSS  =  ' Y '  ; 

24871  End;  I  Procedure  EXIRAJIYPERCABINEIS  ) 

24881 

24891 

24901  Begin  !  Proce>d'jre  COMPU'I'EJIYPERaiAlJNElS  i 


2491  I 

A400  :  =  A400  »■  THYPERchannels; 

24921 

(  Stores  all  mirucanputer 

HYPERchannel  Adapter  requirements 

24931 

Uuantity  :  =  A400; 

24941 

1  :  =  I  *  1  ; 

i  1  =  32  A400  -  l'ANDEM  IlYPERCham 

2495  r 

IF  Vunntity  -  0  THEN  PRIf.TJIW; 

249i,i 

1  I  ♦  1  ;  1  1-33 

2nd  HYPERchannel  Trunk.  Inlet;  ie 

249  7 1 

IF  Trunks  -  HIEN 

24f'8I 

24991 

’.i  lanti  tv  :=  l; 
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2501  1  End; 

25021  HYPERCab  :  =  ((A400  DIV  2)  *  A150  +  AXXX  +  A220  +  AMO  *■  A510)  D1V  2; 

25031  EXTRAJIYPERCABINETS ; 

25041  Quantity  :  =  HYPERCab  ♦  Add  HYPERchannel; 

25051 

2506 I  j  **********  a*^****^**********  ****************************************  j 

25071  {  The  above  line  determines  the  number  of  HYPERchannel  cabinets  to  ) 

25081  (  be  estimated  for  the  user.  It  assumes  that  all  TANDEM  and  P-E  ) 

25091  (  IlYPERchannels  can  reside  in  the  same  cabinet  and  that  one  cabinet) 

25101  (  for  every  two  additional  adapters  will  suffice.  ) 

25111  ( ****»***.****Mt.*.t»**.*******.t«*M**.*«***»**.t*..***t».m**»*  f 

25121 

25131  I  :  =  I  ♦  1;  (  1=34  HYPERchannel  Cabinets  ) 

25141  IF  Quantity  >  0  THEN  PR1NTJ1W; 

25151  Quantity  :  =  TIlYPERchannels; 

25161  I  :=  I  ►  1;  {  1  =  35  nil.  controllers  1 

25171  IF  Quantity  >  0  THEN  PR1NTJIW; 


25181 

Quantity  :=  Trunks; 

l  1=36  -  41  LCN 

Trunk  Line 

25191 

If  Trunks  >  0  THEN 

25201 

Begin 

2521  I 

Case  Cable  Distance  ot 

25221 

’A1:  Begin 

25231 

I  :  -  I  *•  1  ; 

1  1  =  36 

500  ft  1 

25241 

PRINT  IIW; 

25251 

I  :  =  I  +  5; 

25261 

End; 

25271 

’B’:  Begin 

25281 

I  :  =  I  <-2; 

(  1=37 

1000  ft  1 

25291 

PRINT  IIW; 

25301 

I  : -  1  f  4; 

2531 1 

End; 

25321 

'C  :  Begin 

253  31 

I  :-  [  t  !; 

1  1  18  < 

1600  | l  l 

25341 

print  nw; 

25351 

1  :  -  I  .  3; 

25361 

End; 

25  3  7  1 

'  L> '  :  Begin 

25381 

I  I  .  4; 

1  I  =  3°  ■ 

7600  t 1  | 

25391 

PRINT  IIW; 

25401 

I  :=  1  *  2; 

25  11  1 

Mi  id; 

25421 

’ E'  :  lie. tin 

264  3! 

It  1.5; 

i  1-40 

loon  ft  . 

3C  44  I 

PR  IN  I'  ilW; 

2')41.'  I  1  I  .  1; 

7r;4M  lilt.  I ; 


764  71 

P.  Min 

76481 

I  :=  I  .  0; 

i  1-41 

M)0‘1  t  f 

254!>  I 

PRINT  ilW; 

25601 

Kilt  1 ; 

221 
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End; 

End 

ELSE  I  :=  I  +  6; 

Quantity  :=  A150; 

I  :=  I  +  1 ; 

IF  Quantity  >  0  THEN  PRINTJIW; 
Quantity  :  =  AXXX; 

I  :  =  I  +  1 ; 

IF  Quantity  >  0  THEN  PRINTJ1W; 
Quantity  :=  A1 50  +  AXXX  i  A220; 

(  Burroughs  &  IBM  hosts  r 
'I  ;  =  I  +  1  ; 

IF  'Quantity  >  0  THEN  PRINTJIW; 
Quantity  :=  A400  -  THYPE33channels; 
I  :=  I  *  1  ; 

IF  Quantity  >  0  THEN  PRINT  MW; 
Quantity  :  =  A220; 

I  :  =  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 
Quantity  :  =  A140; 

I  :  =  I  *  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 
Quantity  :  =  A510; 

I  :  =  1  +  1 ; 

IF  Quantity  >  0  THEN  PRINTJIW; 


End;  I  Procedure  COMPUTE  HYPERCHANNELS  i 


A150  -  B4800  MYPERchannel  Adapter. 
1=42  HTC1A  interfaces  I 

AXXX  -  B4900  HYPERchannel  Adapter  . 
1=43  DLP  interfaces  ! 


lire  ASCII  to  ECBDIC  Conversion  IVut'd.  I 
:  1=44  ASCII  to  EBCDIC  Conversion  Board  I 

;  P-E  HYPERchannel  Boards  I 
1=45  PI  40  Boards  for  P-E  1 


1=46  IBM  HYPERchannel  Adapters  i 


1=47  UNIVAC  HYPERchannel  Adapters 


1=48  FIPS  HYPERchannel  Adapters  ) 

1=49  Find  out  what  line  420301 
is  and  insert  here  I 


PROCEDURE  COMPUTE  TERMINAL  COMMUNICATIONS  COMPONENTS; 


<V>I>luOpt. ,  K  :  Integer; 


|  *  +  *******  +  *****  +  ********♦*»♦•■*-*  +  *♦■♦*♦**♦♦  +  ***•-****+**»*»*■*:•■♦  *.***.( 

i  This  procedure  is  use.)  to  hnivlh'  .ill  SPLICE  termin.il  orient <xl 
I  nummunicat ions  requirements.  PRINT  MW  is  called  to  writ.'  sol  * 
(  ecrted  ccmponents  to  the  output  file.  ' 

Begin  <  Procedure  (JIMPUTE  TERM1NAI.  'UMMUNM  ’.ATI'  >NS  '  ’  'Mil  N ENTS  i 
AsyncExthd  :=  AsyncCtrl  *  AsyncFxt  PI; 

IF  AsyncCtr  1  '  n"  11 1 L 74 


Qu.inl  1 1  y  :  Auvni-Ct  i  !  ; 

I  :=  I  *  1;  -I  1  ASYNC  Ci’nl.  i  oil .  >i ;; 

IF  Quantity  ■  M  nil*.'  PRINT  MW; 

IF  Asvnt’Extbl  •  ')  II ii .74 
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[ 

II 

II 

II 

.1 

.1 

'I 

II 

II 

II 

I 

II 

II 

II 

i  L 
il 
'1 
II 
II 
II 

I 

II 

II 

II 

>1 

il 

I 

II 

'I 

II 

I 

II 

II 

il 

II 

>r 

'i 

ii 

'i 

u 

r 

ii 

ii 


1 1 
’i 
1 1 
'  i 


Begin 

Quantity  :  =  AsyncExtbd; 

I  :=  I  *  1 ;  (  1=51  ASYNC  Extension  Boards  I 

PRINT  IIW; 

End 

Else  I  :=  I  +  1 ; 

End 

Else  I  :=  I  +  2; 

I  :  =  I  ♦  1;  I  1=52  Skips  Auto  Calling  Unit  Line  item  I 

K  :=  (LIU  -1 )  DIV  45; 

Quantity  :=  LIU; 

IF  LIU  >  0  THEN 


Begin 

Quantity  :  =  K  *  1  ; 

I  :=  I  +  1 ; 

PRINTJIW; 

IF  (LIU  >  45*K)  AND  (LIU  <= 
Beyin 

Quantity  :=  2*K; 
CableOpt  :=  6*K+2; 

End; 

IF  (LIU  >  45*K+ 1 5 )  AND  (LIU 
Begin 

Quantity  :=  2*Ktd; 
CableOpt  :=  6*K*-4; 

End ; 

IF  (LIU  >  45*Kt-30)  AND  (LIU 
Beg  l  n 

'Quantity  :  =  2*  (  K*  I  ) ; 
CableOpt  ;  --  O’Kth; 

End; 

I  :=  I  ♦  ’; 

PRINT  IIW; 

Quantity  I.1U; 

1  :=  I  *  1 ; 

PR  INT  IiW; 

Qi  i,mt  1 1  y  :  -  i  ubleOpt  ; 

I  :  =  I  *  2; 

I  :  -  I  »  1  ; 

IF  juant  tty  ’I  IlUi;  PR  INI'  Il 

Ft  k  I 

Ki  I  :  =  I  •  ; 

I  :  =  I  *■  1  ; 

IF  Bit  sync  u  UillJ 
P<  ~  1 1  n 


I  1=53  6100  Ccmm  Base  I 

45*K*d 5 )  THEN 

<=  45*K+  30 )  THEN 

'=  46*(  INI))  'niEN 

I  1-54  I  Vise  ADD-ONs  i 

i  1=55  LIUs  I 

(  6100  cables;  2  /  Ivise  ,S  add  on  I 

i  Skips  ?0M  S  45M  cables  i 
I  1=58  hi  no  Cables  I 

W; 

i  Skips  1-61-68  if  no  hloo  C.  >t  it  i .  d  l.’i  s 
’  I  =6-1  BIT  SYNCH  Coni  rol  b-i  s  I 


l 


y i. u it  C  ■-  :  oil  , : ii ' ; 

I 'PI  NT  IIW; 

laid; 

I  :  -  I  *  1  ; 


$ 


'  I  -hit  id  11;  ;',vr;ni  Col  it  i  o|  b't 
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26511 
26521 
26531 
26541 
26551 
26561 
26571 
26581 
26591 
26601 
2661  I 
26621 
26631 
26641 
26651 
26661 
26671 
26681 
26691 
26701 
2671  I 
26721 
26731 
26  741 
26751 
26761 
26771 
26781 
26  791 
26801 
2681 1 
26821 
26831 
26841 
26851 
26861 
26871 
26881 
26891 
26901 
2691 1 
26921 
26931 
26941 
26951 
26%  1 
2.6971 
26 '*8 1 
2699 1 
2  700  1 


Begin 

Quantity  :=  Bytesync; 

PRINTJ1W; 

End; 

1  1  >  2;  (  Skips  1=61-62;  ARCL1  items  ordered) 

End;  (  Procedure  CUMPUlE_'rERMIN7\L_tt)fMJNICATIONS  COMPONENTS  1 


Begin  I  Procedure  00NFIGURE_C0MMUNICAT10NS_SUBSYS'I'EM  ) 
coMPirrE-FOX; 

IF  Stock_Point  =  'S'  'I11EN  COMPU'IEJlYPERaiANNELS 
Else  I  : =  I  ♦  18; 

COMPUTE_TERMIN7iL_COMMUN  ICATIONS_CDMPONENTS ; 

End;  (  Procedure  ttWIGURE_OOMMUN [CATIONS  .SUP, SYSTEM  1 


Be*.; in  (  Procedure  CONFIGUREJ1ARDWARE  ) 
1NITI7\LIZE_UARDWARE_INPUTS; 

GET  J  IARDWARE_  IN  PUTS ; 

OONF [GURE_PROCESS ING_SUBS YSTEM ; 

OONF I GURE_STORAGE_SUBSYSTEM ; 

CONF IGURE_lNPUT_OUTPUT_SUBS YSTEM ; 
OONF  IGUREJJUMMUN  ICAT10NS_SUI3SYS'1EM ; 

( I  tMPUTE_SECr  ION_TOT/U.S  (  ’  Sof  twn  re '  ) ; 
Mode  :=  Soft; 

End;  1  Procedure  OONFIGUREJIARDW/W.  I 


PROCEDURE  CONF IGURE_SOFlW/\RE ; 


Var 

1  Variables  Section  For  C:SOFTOARE  1 
SW6100  :  Cl\ar ; 

ADCCP_6100,  ATP_6 1 00 ,  BSC_6100,  SNAX_6 100,  TINETjilOO,  AM_6520  :  Stung  1U 
DDM,  FDC  DLANet ,  FDC_SNA ,  NMFPerfoni  mice  :  Siting  Ml 

NMF_Account  ing ,  NMF_Base_Faci  lity,  NMFJJiagnostics,  NMF  Group  :  String  Ml 
POLI  ,_SE1  .EOT ,  F I  LE_SECUR  ITY ,  LCN_FIJP,  T_TEXT,  TR_32  71  ‘  :  St  ring  Ml 

NETEXMonths,  SPLICENet_M°nf hs  :  Integer; 


(  This  procedure  is  used  to  determine  the  software  requi  reinent  s  lor 
I  the  i lei  l very  order.  Please  se0  the  rules  in  the  Programmer  Mam-  I 
1  tonance  Manual  to  determine  winch  [»ckages  are  ordered  PER  ! 

I  PROCESSOR,  PER  SITE,  and  PER  IWX12SSDR  USED.  ALL  sottware  i 

1  uvunfenaro  is  PER  SITE.  Various  discount /escal at iniis  apply  In  i 
(  the  sottware  pickages.  See  the  BUI  1,1)  COST  TAht.E  procedure  ) .  »t  i 

I  sjiecitic  factors  ami  how  they  are  mcorpotat  ed  into  tile  CnSI'rAPPE  t 
t  array.  I 
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2701 1  (********************************************************************} 

27021 

27031 

27041  PROCEDURE  INITIALIZE_SOFTWARE_INP(JTS; 

27051 

27061 

27071  Begin  {  Procedure  INITIALIZE_SOPrWARE_INPUTS  } 

27081  (  Initialize  Variables  To  Default  Values  } 

27091  ADCCP_6 1 00  :=  ' N ' ; 

27101  AM_6520  :=  ’Y' ; 

27111  ATP_61 00  :=  ’Y'; 

27121  BSC_61 00  :=  'N'; 

27131  DDN  :=  'N' ; 

27141  FDC_DLANet  :=  'N' ; 

27151  FDC_SNA  'Y'; 

27161  FI LE_SECUR ITY  :=  'N1; 

27171  LCN_FUP  :  =  'N1 ; 

27181  NETEX_Months  :=  0; 

27191  NMF_Accounting  :=  'N' ; 

27201  NMF_Base_Facility  :=  ’ N ' 

27211  NMF_Diagnostics  :=  ' N ' ; 

27221  MMFjSroup  :=  ' N ' ; 

27231  NMF_Performance  ' N ' ; 

27241  POLL_SELECT  :=  ’ Y ‘ ; 

27251  SNAX_61 00  :=  '  Y‘  ; 

27261  SPLICENet_Months  :=  0; 

27271  T_TEXT  ' Y '  ; 

27281  TINET_6100  :=  ’N'; 

27291  TR_3271  :=  'N' ; 

27301  End;  (  Procedure  INITIALIZE_SOriWARE_lNPUTS  ) 

27311 

27321 

27331  PROCEDURE  GCT_SOFTWARE_ INPUTS; 

27341 

27351  Begin 

27361  screen_f ieldS3  :=  21; 

27371  varSS  :=  1  ; 

27381  rotrieveSS  False; 

27  391  last  l  ioldSS  False; 

27401  DISPIAY  SCREEN  (Screent i let ;  I  Display  Screen  I 

2741  1 

27421  REPEAT  1  until  answerSS  =  'Y'  I 

27431  I  Display  Items.  Change  retrievoSS  to  True  and  INPUT  items! 

27441  REPEAT  i  until  actionSS  =  exitSS  l 


2/451 

2/461 

271/1 

2/481 

2/491 

27501 


CASE  varSS  of 

1  :  CETITEMt  36,5, 1  ,  ’  Y'  ,  FI LE_SECUE  PIT,  , ,  et t,  a  ,  i,  It,  1  ) ; 

IF  Sfry'E  Point  -  ‘S'  '11IKN 

CETITEMt  36,6, 1  ,  ’  Y1  ,LCNJ1JP,  *  U  *  ,  "  ,  "  ,ietSS,  1  <4  ,  i  I  I  !  ; 

J:  CETITQK  36,8, 1  ,  'Y'  ,ATP  6100, 'U',' "  ,  t»tSS,  tetrievr.;:;;,  16,1  t  ; 

4:  'JETITEMt  36,9, 1  ,  ’  Y  ’  ,BSC_6100,  ’tJ*  ,  "  ,  *  *  ,retSS,  ret  r  love.:;;,  l'.,l 
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2751  I 
27521 
27531 
27541 
27551 
27561 
27571 
27581 
27591 
27601 
2761  I 
27621 
27631 
27641 
27651 
27661 
27671 
27681 
27691 
27701 
2771  I 
27721 
27731 
27741 
27751 
27761 
27771 
27781 
27791 
2  7801 
2781  1 
27821 
27831 
2  784  I 
27851 
27861 
27871 
27881 
27891 
27901 
2791  1 
27921 
279  31 
27941 
2  7951 
2791,1 
2  79/1 
2  7981 
2/901 
28001 


5:  GETITEMI 36,10,1 , ' Y ' ,ADCCP_6100f 'u' ,  "  ,  "  , retSS , retrieveSS , 1 5 , 1 ) ; 

6:  GETITEMI 36,11 ,1 , 'Y' ,POLL_SELECT, 'U' , ' ' , ' ' , retSS,  retrieveSS, 15,1); 
7:  GETITEMI 36, 12,1 , 'Y' ,SNAX_6!00, 'U‘ , ‘ ’ , ’ 1 , retSS, retrieveSS, 1 5, 1 ) ; 

8:  GETITEMI 36, 13,1 , 'Y' ,TINET_6100, ' U ' ,  "  , ' ' , retSS , retrieveSS , 1 5 , 1  ) ; 

9:  GETITEMI 36, 14,1 , 'Y* ,TR_327I , ’U’,  ”  , ' ' , retSS, retrieveSS, 1 5, 1 ); 

1  0 :  GETITEMI  36,15,1  ,;Y‘  , AM_6520 ,  ‘U!  , '  !  , '  '  , retSS , retrieveSS ,  15,1  l ; 

1 1 :  GETITEMI 36, 16,1 , ' Y ' ,T_TEXT, ’U* ,  "  ,  "  , retSS , retrieveSS , 1 5 , 1 ) ; 

12:  GETITEMI 74, 5,1 , ' Y ’ ,FDC_SNA, 'U' ,  "  , 1 ’, retSS, retrieveSS, 1 5 , 1  )  ; 

13:  GETITEMI 74,6,1 , 'Y* ,FDC_DLANet, 'U' , ' ’ ,  "  , retSS , retrieveSS, 1 5 , 1 ) ; 

14:  GETITEMI 74, 7,1  ,  'Y*  ,DDN,’U’  ,  ”  ,”  , retSS, retrieveSS,  1  5, 1  ) ; 

1 5 :  GETITEMI 74 ,9,1 , ' Y ' ,NMF_Group, 1 U' , ' ‘ , ' 1 , retSS, retrieveSS, 15,1 ) ; 

16:  IF  NMF_Group  =  1 N '  THEN 

GETITEMI  74,12,1,'Y',  NMF_I3ase_Faci  Lity , 

'U' , ' ' , ' ' , retSS, retrieveSS, 15,1 ); 

17:  IF  NMF_Group  =  ' N ‘  THEN 

GETITEMI 74 , 1 3,1 , ' Y 1 ,HMF  Performance, 

’ U 1 , 1 ’ , 1 ‘ , retSS, retrieveSS,  1 5,1); 

18:  IF  NMF_Group  =  ’N1  THEN 

GEE  HEM  (  74 , 1  4 , 1  ,  ’  Y 1  ,  NMF  Diagnostics , 

1 U'  ,  '  '  , ’ ‘ , retSS, retrieveSS, 15,1  ) ; 

19:  IF  NMF_Group  =  'N'  THEN 

GEEITEMl 74 , 1 5 , 1 , ' Y ' , NMF_Accounting , 

' U 1 , ' ' , 1 ' , retSS , retr leveSS ,15,1  ) ; 

20:  IF  Stock_Pomt  =  'S'  THEM 

GET INT( 60 , 2 1 , 2 , ' N ' , NETEX_Months , 

0,1 2, retSS, retrieveSS, 15,1 ); 

21  :  GETINT(60,22,2,  'N'  ,SPLICENeT_Montlis,  1  Htt'  ,0 , 1  2 ,  retSS,  ret  r ieveSS ,  1  5, 

End;  (  OISE  ) 

IF  varSS  =  screen_£ ieldSS  THEN  last_f leldSS: =True; 

RtT_STA’IVJS;  (  Check  tlie  code  m  "retSS".  Set  "varSS"  anil  "nctionSS"  i 

f  Clieck  to  see  whether  to  switch  retrieveSS  to  true  I 
IF  last  _f  ieldSS  ANL)  (not  I  el  ne-.oSS)  THEN 
Begin 

retrieveSS  :=  True; 

1 ast._f ieldSS  : =  Fa  I se ; 
act lonSS  ; -  staySS; 
varSS  : -  1; 

End 

ELSE 

last! ieldSS  False; 

UNTIL  a c t i onSS = ex 1 1 SS ; 

ACCEIT- INPUTS; 

UNTIL  answerSS  -  1 V ' ; 

End;  I  Procedure  GIT  FOF'IWARE  INPUTS  1 


PRUCEIX'RE  PR1NT_SW  (Tyi«?  :3ol  tware  :  Integer); 

^♦♦-r*f***-#-#***t*#*'*rt-»t*  +  *  +  t*-'*-tt^*- *♦■*♦+♦•■*♦****♦****♦♦♦♦♦♦♦*♦♦♦♦  *  *  ♦  «  t  *  « 
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28011 
28021 
28031 
28041 
28051 
2G0G I 
28071 
28081 
28091 
28101 
281 1  I 
28121 
281  31 
28141 
28151 
28161 
28171 
28181 
28191 
28201 
2821  1 
28221 
28231 
28241 
28251 
28261 
28271 
28281 
28291 
28301 
2831  I 
28321 
28331 
28341 
28351 
28361 
28371 
28381 
28  39 1 
28401 
2841  1 
28421 
28431 
28441 
28451 
28461 


(  used  in  any  maintenance  computations.  ) 

{**************************************************************************} 

Begin  (  Procedure  PRINT_SW  I 
CASE  Type_Sof tware  of 

1 .  Begin  1  Per  Processor  Basis  J 

Maint_Factor  :=  Momaint_Esc_Rate; 

Extended_Pnce  :  =  Quantity  *  CostTablel  I  ]  .purchprice; 

End; 

2:  Beqin  (  Per  Site  Basis  f 

Maint_Factor  :=  MomaintEsc  Rate; 

Extended_Pnce  :  =  CostTablel  1 1 . purchprice; 

End; 

3:  Beqin  (  Per  Processor  Basis  ) 

Maint_Factor  :=  1 ; 

Extended_Price  Quantity  *  CostTablel 1 1 .purchprice; 

End; 

End;  (  End  of  CASE  Statement  1 
LINE_SETUP ; 

1  Compute  System  Downtime  Credit  Component  Factor  per  month  1 

{****************************************** ********************^ 

System_Downtime_Ccmponent  :=  System_Downtime_Component  * 

(Quantity  *  CostTablel  1 )  .basemnint 
*  Maint_Factor ) ; 

^** *******************************  *********************  1 1 1  | 

(  Canpute  the  Canponent  Downtime  Credit  Factor  per  hour  ( 

j  **************** *****************************************^ 

Duwiitiine_Credit.  :=  (( (CostTablel  1 1  .purchprice  +  CostTablel  I  ].  msteosL  )  /  48) 
•  (CostTablel  1 1  .bnsenwiint  *  Mamt_factor ) )  *  H.'KJS; 
WR1TELN  (Diskfile,  ,  Line_Nuinber:7,  CostTablel l I . feat urnno:8, 

CostTablel  I  1  .descript: 28,  Quantity:!, 

CostTablel  1 1 .purchprice: 1 3:2,  Extended_Pr ice: 1 2:2 , 

CostTablel  1 1 . basemni nt : 9 : 2 ,  Ha  mt_Factor  :8:  !,  Mam! Months:  5 , 
CostTablel  1 1  .basnnaint  *  Hunt  Factor  *  Ma int._Months:  1  7:2, 
CostTablel  I  | .  mstcost.  :8:2, 

CostTablel  I  ).  instcost  *  Quant  i  ty  2,  Downt  im>  t'r« 1 1 1 : 11 : 3 , 

(Quantity  *  CostTablel  I  | .  Itis>  iiviint  *  Hunt  Fact  or  ; 

End;  I  Procedure  PR  IMF  SW  ( 


PRiXlEDURE  <  1  Ml  UTE_PI«  XJESSt  «j  a  iKIViAKK  ; 

Begin  I  Procedure  CT  IMPUTE  l’W  CESU  1R5K  TTWAPK  1 

Quantity  :-  Processors;  i  PER  PR<  CliSN'  >p  E-i '!  "IV.'ARI : 

IF  Quantity  u  nil-;; 


28471  Pegu, 

2848 1  I  :  -  I  .  1  ; 

28491  PRINT  SW  (1); 

2850 (  I  :  -  I  r  1  ; 


I  _6  1  *1  'AK!  1 1  A.’  J  1 
PER  1’Ri  k'KS.'K ?R  'KIV.A!'; 
i  -64  HAN’  5  i  i 
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28511 

PRINT  SW 

(2); 

l 

PER-SITE  SOFTWARE  } 

28521 

I  :=  I  + 

1  ; 

{ 

1=65  System  Utilities  ) 

28531 

PRINT  SW 

(2); 

( 

PER-SITE  SOFTWARE  } 

28541 

I  :=  I  + 

1  ; 

{ 

1=66  ENCOMPASS  } 

28551 

PRINT  SW 

(1 ); 

( 

PER- PROCESSOR  SOFTWARE  } 

28561 

I  :=  I 

6: 

1 

Fk'ips  5  p/o  software  pacKages 

28571 

I  :=  I  + 

l 

[=72  TPS  Software  ) 

28581 

PRINT  SW 

(2); 

t 

PER-SITE  SOFTWARE  } 

28591 

I  :=  I  + 

5; 

( 

Skips  5  p/o  software  packages 

28601 

End 

28611 

ELSE  I  :  =  I  +  15; 

28621 

I  :=  I  +  1 ; 

I 

1=78  File  Security  Software  ! 

28631 

IF  File  Security 

=  *Y'  THEN  PRINT 

SW 

(2); 

28641 

I  :  =  I  +  1 ; 

{ 

1=79  Card  Reader  Software  I 

28651 

( 

PER-SITE  SOFTWARE  ! 

28661 

IF  CardRdr  >  0  THEN  PRINT  SW  (2); 

28671 

I  :=  1  ♦  3; 

! 

Skips  3  p/o  software  packages 

28681  End;  I  Procedure  COMPUTE  J430CESS0R_S0F!WARE  I 

28691 

28701 

2871  I  PROCEDURE  aiMPU’[EJ.'OMMUNICATIONS_SOFTWARE; 

28721 
28731  Var 

28741  Temp_Months  :  Integer; 

28751 

28761 

28771  PROCEDURE  COMPUTE_TANDEM_SOFT1VARE ; 

28781 


28791 

Begin  (  Procedure  COMPUTE  TANDEM  SOFIWARE  ) 

28801 

Quantity  :=  Processors; 

2881  1 

IF  Quantity  >  0  THOM 

28821 

Begin 

28831 

I  :  =  I  ♦  1 ; 

I  1=83 

EXPAND  Software  1 

28841 

PRINT  SW  ( 1 ) ; 

(  PER- 

PROCESSOR  SOFTWARE  1 

28851 

I  :  =  I  i  1  ; 

(  1=84 

Skips  Exchange  R.IL  Software 

28861 

(  Possibly  need  to  add  choices 

to  software  screen  for  next  two  lf'-ws  i 

28871 

I  :  =  I  ♦  1  ; 

l  1=85 

AM  3270  Software  : 

28881 

PRINT  SW  (1); 

(  PER- 

PROCESSOR  SOFTWARE  > 

28891 

I  :  =  I  »  1 ; 

l  1  -86 

X. 25  ACCESS  Software  t 

28901 

PR INT_SW  (1); 

1  PEH- 

PROCESSOR  SOFTWARE  1 

2891  I 

End 

28921 

ELSE  I  :=  I  f  4; 

289  31 

I  :  =  1  +  1 ; 

1  Skip: 

s  1=87  HYPERLINK  A c-v>ss  ‘-Who 

28941 

i  :  =  1  *  1  ; 

1  1=88 

ia_tj  nipt 

28951 

IF  (Siteinfo.sito  typo  - 

1  AND  <  Pi'll  ITT’ 

-  1  v r )  mm 

2896 1 

PRINT  SW 

28971 

I  :  =  I  *  1  ; 

i  |  -hu 

Skip  'IFF  Terminal  Sap|«>rt  t 

2898  I 

!:-[.!; 

1  1  -  Ml 

■YIP  1.100  i 

2899! 

IF  ATP  6100  =  'V  [HEN  PRINT 

SW  ( 1 ) ; 

29001 

I  :  =  1  1  ; 

i  I=9| 

PSC  6 ion  1 
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2901 1 

IF 

8 

c 

o 

o 

II 

' Y‘  THEN  PRINT  SW  ( 1 ) ; 

29021 

I 

=  1  +  1; 

1 

1=92 

ADCCP  6100  ) 

29031 

IF 

ADCCP  6100 

=  'Y'  '11104  PRINT  SW  ( 1  ) 

; 

29041 

I 

=  i  +  i ; 

{ 

1=93 

TINET  6100  ) 

29051 

IF 

T1NET  6100 

=  '  Y 1  '111EN  PRINT  SW  ( 1  ) 

! 

29061 

I 

=  I  +  1  ; 

1 

1=94 

BURROUGHS  FILL-SELECT  1 

29071 

IF 

POLL  SELECT  =  'Y'  THEN  PRINT  SW  (1 

)  ; 

29081 

I 

=  1  +  1; 

( 

1=95 

SNAX  6100  1 

29091 

IF 

SNAX  6100 

=  1 Y'  THEN  PRINT  SW  ( 1 ) ; 

29101 

I 

=  i  +  i; 

( 

1  =  96 

TR  3271  1 

291 1 1 

IF 

TR  3271  = 

'  Y '  THEN  PRINT  SW  (1 ); 

29121 

I 

=  i  +  i ; 

1 

1  -97 

AM  6520  1 

29131 

IF 

AM  6520  = 

'  Y '  THEN  PRINT  SW  ( 1 ) ; 

29141 

I 

=  i  +  i; 

t 

1  =  98 

FDC  SNA  Interface  Package 

29151 

IF 

FDC  SNA  = 

'Y'  THEN  PRINT  SW  (2) ;  I 

PER -SITE  SOFTWARE  ■ 

29161 

I 

=  i  +  i; 

i 

l  =0Q 

FIX'  lilt"!  !icp  Pi*'1; 

29171 

IF 

FDC  DLANet 

=  'Y'  31IQ4  PRINT  SW  (2) 

;  (  PER -HITE  GU’IVIAKE  1 

29181  End;  (  Procedure  CUWIEjrANDEMjSOFI'WARE  1 

29191 

29201 

2921  1  PROCEDURE  OOMPUTEJIYPERCl  IANNE1._3<  tl-TWARK ; 
29221 


29231  Bee 

|in 

1  Procedure  COMPUTE  HYPERCHANI.'L; 

29241 

I  : 

;=  I  +  1; 

29251 

Temp_Fonths  :=  Maint_Months; 

29261 

Maint  Months  :=  NE.TEX  Months; 

29271 

IF 

< Si teinfo. site  type  =  'S'  i  AND  o' 

29281 

Begin 

29291 

Uuantity  :=  A 150; 

29301 

PR INT  SW  (31; 

2931  1 

I  :=  I  +  2; 

29321 

'Quantity  :=  '; 

29331 

Mi  i  nt.  Mont  lip  :  -  Si’Ll  ’LL.  •  'V 

29341 

PRINTSW  (21; 

29351 

Kt  k  i 

29361 

Else  I  :=  I  ♦  2; 

29371 

Maint  Months  :=  NETEX  Mor/hs; 

29381 

I  ; 

;  =  I  *  1; 

29391 

IF 

(Si teinfo. site  type  -  'S'l  A'.!  >' 

29401 

Begin 

2941  I 

quantity  AXXX; 

29421 

PR  INT  SW  (  3 )  ; 

294  3  1 

1  :=  T  +  2; 

29441 

quantity  :=  1; 

29451 

Maint  Months  HIM  .H 'Olot  'V 

29461 

PR INT_SW  (2); 

294/1 

Hi  i< 1 

79481 

111: 

■■■  1  |  «  2; 

294'*  1 

Muni  Months  :=  NIH'KX  Months; 
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2951  I 
29521 
29531 
29541 
29551 
29561 
29571 
29581 
29591 
29601 
2961  I 
29621 
29631 
29641 
29651 
29661 
29671 
29681 
29691 
29701 
2971  I 
29721 
29731 
29741 
2°  751 
29761 
29771 
29781 
29791 
29801 
2981  I 
29821 
2'*8  3 1 
2U84  1 
29851 
2986  I 
2“8  71 
2988 1 
29891 
2r*‘*0I 
2 '>91  i 
29**2 1 
29'*  1 1 
2'*°  4  I 
,’"'■* ..  I 
."'"M 
2‘in ; ; 
9'"'8| 

j 

9  Ill'll 


LF  (SiteInfo.site_type  =  ’S')  AND  ((A400  -  THYPERchannels)  >  0)  THE! 
Beg  l  n 

quantity  :=  (A400  -  THYPERchannels) ; 

PRINT_SW  ( 3) ; 

I  :  =  I  +  2;  i  1=108  CIP,  PERK IN -ELMER  1 

Quantity  :=  1 ; 

Maint_Montlis  :=  SPL ICENet_Months ; 

PKINT_SW  (2); 

End 

ELse  I  :=  T  +  2; 

Main t_Moi i th s  :  =  NEI'EX  Mon tl i s ; 

I  :=  I  *  1  ;  '  1  1=10*1  IBM  Nt'lHX  Sottwaie  i 

IF  (Sitelnfo.si te_type  =  ’S’)  AND  (A220  >  0)  THEN 

Begin 

(Quantity  :=  A220; 

PR INT_SW  (3); 

1  :=  I  ♦  2;  11=111  CIP,  IBM  MVS  i 

Quantity  :=  1; 

Maint_Months  :=  SPLICENet._Montiis; 
pr  int_sw  ( 2 ) ; 

End 

Else  I  :=  I  +  2; 

Maint_Months  :  =  NETEX_Montlis; 

I  : -  I  ♦  1 ;  (1=112  UNIVAC  NETEX  Software  1 

IF  ( SiteInfo.site_type  =  ’S’)  AND  (A140  >  0)  THEN 

Begin 

(Quantity  :=  AMO; 

PRINT_SW  (3); 

I  :=  I  +  2;  (  1=114  CIP,  UNIVAC  i 

(Quantity  :=  1; 

Mamt_Montlis  :=  SPLICENet__Mont.hs; 

PR INT_SW  (2); 

End 

Else  I  I  *  2; 

MnmtMonths  :=  NLTEX_Montlis; 

I  :  =  1  *  1  ;  (1  =  115  TANDEM  NT HEX  :<  u  I  ....  u  •  *  - 

If  (Si  t  eInlo.sitp_t  y[«.>  =  ’S’)  AND  (THYPERchannels  '*)  IHEN 

Beg  m 

'.luantity  :=  THYPERchannel  s; 

PR  INTJ3W  (  3  1 ; 

End  ; 

1  :=  I  ♦  2;  (  1  =  117  *  XT,  TANi.KM  i 

Qn.int.  l  ty  :  =  I; 

Ml  inf  Months  :=  SPl.lCENet  Months; 

!Pi:rr~sw  (2); 

;  ;  -  ;  »  1  ;  I  i'll.11  •;  , 

I ’PINT  CW  (2); 


■nd;  i  I'loc'viuie  (Mirim:  HYPi:RCii,viiJi:i.  .'mtivain: 
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3001  1  PROCEDURE  CDMPUTE_DDN_SOFTWARE ; 

30021 

30031  Begin  (  Procedure  OOHPUTE_DDN_SOPIWARE  i 


I  :=  I  +  2; 

(Quantity  :  =  PROCESSORS; 

Maint  Months  :  =  SPLICENet  Months; 


[  SKIPS  TOO  OLD  DDN  PACKAGES  1 
{  PER- PROCESSOR  SOFIWARE  1 


. 

f 

30071 

I 

:  =  I  +  1  ;  1 

1  =  121 

DDN 

I/F  Protocol  Sol twnre 

K 

30081 

IF 

DDN  =  1 Y ’  THEN  PRINT  SW  ( 2 ) ;  1 

PER-SITE  SOP I WARE  1 

30091 

Maint  Months  :  =  Temp  Months; 

f- 

30101 

I 

=1*1;  1 

1  =  122 

NETWORK  MGT  FACILI'n'  .1HOUP 

r 

3011  I 

IF 

NMF  Group  =  '1'  'IIIEN  PRINT  SW  (2); 

■ 

30121 

I 

=1*1;  I 

1  =  123 

NMF 

BASE  FACILITY  I 

| 

301  31 

IF 

NMF  Base  Facility  =  'Y‘  'IIIEN  PR1NT_ 

SW  (2) 

f 

30141 

I 

=  I  +  1  ;  i 

*1  =  124 

NMF 

PERFORMANCE  MONITOR IN<  1 

. 

30151 

IF 

NMF  Performance  =  'Y'TllEN  PRINT  SW 

(2); 

|- 

30161 

I 

=1*1;  1 

1  =  125 

NMF 

DIAGNOSTIC  MONITOR ING 

; 

30171 

IF 

NMF  Diagnostics  =  'Y'  II1EN  PRINT  SW  (2); 

•: 

30181 

I 

:=  I  *  1  ;  ! 

1  =  126 

NMF 

ACCOUNTING  APPLICATI'  *N 

V 

30191 

IF 

NMF  Accounting  =  'Y'  THEN  PRINT  SW 

(2) ; 

1 

30201 

Quantity  :  =  Processors; 

r 

3021 1 

I 

:=  I  *  2;  1 

Ships 

2  p/o  software  i  .icku  :i»Jj  ; 

30221  End;  (  Procedure  CUMPU'I'EJIDNjSOFrWARE  i 
30231 

30241  Begin  {  Procedure  (X'MPUTEJX'MMUHIGVrp  11S_SoPlVJAPE  1 
30251  CDMPU'rE_TArJDEM_SOPTOARE; 

30261  COMTtJTEJ  IYPERC!  1ANNEL  SOFIWARE; 

30271  aOMPUTE_DDN_SOI-'TOARE: 

30281  End;  I  Procedure  COr4PUTE_a miNTOATTONG  .3  F1WARE  ! 

30291 

30301 

3031  1  PRtXlEDURE  COMPUTE  irriLXTY_S<  PTOAKE; 

30  321 

30331  Ueyi.t  1  Procedure  O.JM11TIT:  '"IT!  [IT  M  FIWAPF 

30341  'l  :=  i  ♦  1;  •  I-'."1  IP  O  C'j-'t  in.  -n  '  '*  ;  I  ;  ‘  y 

30361.  IF  Processors  >  0  THEN  PRINT  SW  (Pi;-  PIT  .'III  3  •FTOARE  - 

30361  Ounntity  :-  Processors; 

10  37  1  I  :  =  I  *  1  ;  •  1-1  ’  So!  • 

30  38  [  IF  Processors  >  0  TT II  ON  PRINT  MW  (1);  ■  UP  :  I-'  •  !  UP  P  P'FIWAPF  < 

3030 1  I  :  =  I  *  1  ;  "  ■  [-Mi  ’  .  .••.■'•I  •  ware  .  > 

30401  IF  (Sil-tdnfo.sit  -no  -  2)  .  (>  l  P  1 1 .  I  r  >  - .  -  - :  *  -  P 

30411  1 1**  1 1  n 

30421  1:1*1;  PM  ■ i  t.- 

304  3  1  IF  onnntity  -  o  NiEN  II?!  NT  ME  (  ‘  I ;  Pill-  =  i”  «  1 1 M'.  i  ’•  F1V..V-T 


Inli  .ruteno  -  "R  [Mi  N  - 1 : 


IF  ITO’cessors  -  0  THEN  PP  INI  MW  ('  ); 
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3051  1  Else  I  :=  I  +  1 ; 

30521  I  :=  I  +  15;  (  Skips  15  p/o  software  packages,  i 

30531  I  ; =  I  +  1  ;  !  1=149  TRANSFER  ) 

30541  IF  Processors  >  0  THEN  PRINT_SW  ( 1  ) ; {  PER-PROCESSOR  Software  ) 

30551  I  :=  I  ♦  1;  {  1=150  T-TEXT  Software  ) 

30561  IF  (T_TEXT  =  * Y ' )  AND  (Processors  >  0)  THEN  PRINT_SW  (2); 

30571  I  ;=  I  +  2;  1  Skips  two  1  time  charge  FMSO  pkgs  ) 

30581  End;  {  Procedure  COMPUTE  JJTILITY_SOFTOARE  } 

30591 

30601  Begin  (  Procedure  OONF IGURE_SOFTWAR£  } 

3061  I  irtmALIZE_SOFTWARE_INPU’['S; 

30621  GET_SOFTWARE_INPUTS ; 

30631  COMPUTE_PROCESSOR_SOFTWARE ; 

30641  ODMPUTE_OJMMUN  ICAT  IONS_SUFIV(AKE ; 

30651  COMPUTE_UTILITY_SOFTWARE; 

30661  COMPUTE_SECT  IONJ1OTALS  (  ’  Documer  i  ta  t,  ion  ’  ) ; 

30671  Mode  :=  Document; 

30681  End;  (  PROCEDURE  CDNFIGUR£_SOF™aRE  ) 

3069 : 

30701 

30711  PROCEDURE  INITIALIZE Jw5ST_SCREEN_DATA; 

30721 

30731  Begin  {  Procedure  INITIALIZE_LAST_SCREEN_DATA  } 

30741  (  Initialize  Variables  To  Default  Values  I 

30751  Computer_Ops  :=  0; 

30761  Data_Commurucation  :=  0; 

30771  llardware_Manual  :  =  0;  • 

30781  HardwareJOverview  :=  0; 

30791  Operator_Trainmg  :=  0; 

30pni  Per_Call_Months  :=  3; 

306 i I  Programmer_Ref  ;=  0; 

30821  Site_Preps  :=  ’N'; 

308  31  SPLICENet_Worksiiop  :=  0; 

30841  Sys_Progranmer  ;=  0; 

30851  Sys_Resource  :=  0; 

30861  Sys_'I'uning_Xray  :=  0; 

30871  TAL  :=  0; 

30881  Train ing_Group  ;=  5; 

30891  End;  f  Procedure  INlTLAl,lZE_IJ/V3T_SaiEEI'1_DATA  I 

30901 

3091  I 

30921  PROCEDURE  GEl'_UiST_SGlElJ')_DATA; 

30931 

30941  Begin  (  Procedure  GCT_I AST_SCREEN_ DATA  1 
10951  screen  f leldSS  14; 

3098  [  vnrSS  1; 

30"7I  retrieveSS  :=  False; 

30981  Listf leldSS  :=  False; 

30991  DISPI  AY  SCREEN  ( Scrr,°nf  l  I  e ) ; 

3100 1 


i  Ih  si  lav  Screen  1 
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3101 1 

REPEAT 

(  until  answerSS 

31021 

(  Display  Items.  Change 

31031 

REPEAT 

(  until  actionSS 

31041 

CASE  varSS  of 

31051 

1 

GETINTI 35,5,2,  't 

31061 

2 

GEITNTI  35,7,2,  't 

31071 

3 

GETINTI  35,9,2,  't 

31081 

4 

GETINTI 35,11,2, 

31091 

5 

GETINT(  70,5,1  , 't 

31  101 

6 

GETINTI  75,10,2, 

31 11 1 

7 

GETINTI 75,11  ,2, 

31121 

8 

GET 1NT( 75,12,2, 

31 131 

9 

GETINTI 75, 13, 2, 

31 141 

10 

GET  INK  75, 14,2, 

31151 

1  1 

GETINTI 75, 15, 2, 

31161 

1  2 

GETINTI  75,16,2, 

31  171 

1  3 

GETINTI 35,23,2, 

31  181 

1  4 

GET  ITEJ1  (75,23,1 

31  191 

End;  I  CASE  1 

11201 

3121 1 

IF 

varSS  =  screen  1 k 

31221 

RET  STATUS;  (  Check 

31231 

31241 

I  Check  to  see  whetlw 

31251 

IF 

last  fieldSS  AND 

31261 

Begin 

31271 

retrieveSS  : 

31281 

last_f ieidSS 

31291 

actionSS  := 

31  301 

varSS  : -  1  ; 

31  31  I 

End 

31  321 

Ei; 

>E 

31  331 

last  f ieidSS  :  = 

31  341 

UNTIL  act ionSS=exitSS; 

31  351 

ACCEPT 

INI  UTS; 

31  361 

UNTIL  answerSS  -  'Y‘; 

11  3  7 

End ;  1 

’locedure  GET  I  AST 

11  38 1 

31  191 

=  '  Y '  I 

retrieveSS  to  True  and  INPUT  items} 
=  exitSS  } 


N 1 , Prograrrmer_Ref , ' ## 1 ,0,20 , retSS, retrieveSS ,15,1 ) ; 
iardware_Manual  ,'##',0,20,  retSS ,  retrieveSS  ,15,1 
Svs  Proaranmer . ' ## ' .0.20. retSS . ret  r ieveSS .15.1! 


3,15,1  ) ; 

3.15.1  ); 

1 1 ; 

1 5 ,  i ) ; 
is ,  1 r- ,  1  ) ; 

35.15.1  I ; 
15,1); 


:TJ  last_l  ieidSS  :  -  True; 

'retSS".  Set  "varSS"  and  "actionSS"  1 


'111EN 


staySS; 


3 1  ‘10 1  PROCEDURE  ! .1  ’NIT <31  IRK  IXX’UMUJTAThlN; 

11411 

^1421  {  ♦  ♦  ♦  , 

51431  I  This  rir<’xr»'Huro  simply  us^s  Mio  if  ivf  N»nnin«il  f>n;  pi  iur«'  } 

51441  I  MA’Jt'Al.  fo  l  isf  th<*  4  rat  o-  jor ot  manuals  ‘.<’1  Hi*'  isot  m«1  ,? 

31  4M  \  how  many  ot  *m«*M  shouhl  tx*  output  nn  M10  i«  *  l  1  v s  v  •  >j  l“i  .  *  ?•  it  j  <  1  •  :  •  * 

3  MM  i  no-  writN'!i  to  *  i  1  r>k  via  tho  PRINT  I*1*'  -  1  : -r  *  !nr*', 

514/1  <  !*vrit’«vi  -iIjov«».  i'sos  WR  PIT1.  A  LINK  I  •  'i  nMn.il  writ**?'  *o  iisk. 

5  1  4H  I 


♦  ♦  ♦ 
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3151 1 
31  521 
31531 
31541 
31551 
31  561 
31571 
31  581 
31541 
31601 
3161  I 
31621 
31631 
31641 
31651 
31  66  [ 
31671 
31681 
31  69 1 

31  70 1 
3!  71  I 
31  721 
3  1  ’31 
<l  '41 
’!  -  51 
31  ‘hi 
i 1 '  ’ : 
71  *81 
3 1  '  -i ; 
3 1  -Hi ; 
3  I  6  1 
■  1  6.: 

’  I  “  . 

3' 6-i 

MW' 


Begin  3  Procedure  CONFtGURE_DOCUMENTATION  ) 

I  :=  I  ♦  1;  !  1=153  Computer  Operations  Manual  1 

Quantity  :=  Computer_Ops; 

IF  Quantity  >  0  THEN  PR INT_DOC_OR_TRNG ; 

I  :=  I  ♦  1;  (1=154  Systems  Prograiimer  Manual  ) 

Quantity  :=  Sys_Programmer; 

IF  'Quantity  >  0  THEN  PR lNT_DOC_OR_TRNG ; 

I  :  =  r  ►  1  ;  (  1=155  Hardware  Manual  ) 

Quantity  :=  Ilardware_Manuai ; 

IF  'Quantity  >  0  THEN  PRINTJX>C_OR_TRNG; 

1  :=  I  ♦  1;  (  1=156  Progranmer  Reference  Manual  I 

'Quantity  :=  Programmer_Ref ; 

IF  Quantity  >  0  THEN  PRINT_DOC_OR_TRNG; 

OOMPI n*E_SECTION_TOTALS  (  'Training'  ) ; 

Mode  :  =  Train; 

End;  i  Pi  coy  lure  CONFIGURE  UJCUMENTAT  K  IN  ) 


PR(  *  mix  IRE  ( 1 1MF  I  CURE  _  TRA I N I NG ; 

i ************ 

i  nu".  | rocedur®  simply  uses  the  repetitive  terminal  out  procedures 
•3J"<!1,::  ii u i  ■  MURSE  to  1  ist  i he  7  categories  of  courses  for  the 
.ser  lmi  inks  which /hew  "uny  of  each  should  be  output  on  the 
lolr.-or..  •  trier.  ‘>uU“it:;  ire  written  to  disk  via  the 
!  R l;.T  I  >  or  !*P.NG  ;  i nr*» lute,  described  above.  Uses  WRITE_A_LINE 
'  r  1  •*  .,1  !  Wf  .  7  es  *  '  ,  !  ;  . 


;1  <1  ; 


3  '  ■>  I  i 


1  ’  *8  I 


3QI1IJ  I 


:  .i“  ’tn  :  ;;  hi:  training 

-I  :|||  t 


i  :•  :*.:  ■  <  t  :rng; 

-  f  G 

:  '  ‘  it" 

,’i.inf  1  f  .  i; 
PRINT  Li’«*_oi  IKNG; 
1  :  =  I  .  2; 

I-.:  k  1 ; 

1 ;  i  3e>  1 1 1) 

1  1  *  3; 

Quantity  :=  1; 
PRINTJJOC  or  IRNG; 

r  :  --  I  t  T ; 

I  m  k  3 ; 

4:  iv>'iiri 


i  1  =  157  Training  Group  1 


1=158  Training  Group  11  i 


I  1=159  Training  Group  !!! 


23  4 


_  4  «'*  -1  wl  X 


L>  y  Lk  A*  T  m.  r>  M 
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I  :=  I  i  4;  (1=160  Training  Group  IV  } 

Quantity: =  1 ; 

PRINT_DOC_or_TRNG ; 

End; 

5:  I  :=  I  +  4; 

End; 

I  :=  I  +  1;  {  1=161  Operator  Training  Course  ) 

Quantity  :=  Opera tor_Training; 

IF  Operator_Training  >  0  THEN  PRINT_DOC_or_TRNG; 

I  :=  I  +  1 ;  (  1=162  Hardware  Overview  Course  I 

Quantity  :=  Hardware_Overview; 

IF  I  lardware_Overv  iew  >  0  THE*)  PRINT_DOC_or_TRNG; 

I  :=  I  +  1 ;  {  1=163  System  Resource  Mgmt  Course  1 

Quantity  :=  Sys_Resource ; 

IF  Sys_Resource  >  0  THEN  PR INT_DOC_or_TRNG ; 

I  :=  I  *  1 ;  1  1=164  Systems  Tuning  and  XRAY  Course  ) 

Quantity  :=  Sys_Tuning_Xray; 

IF  Sys_Tuning_Xray  >  0  THEN  PR INT_DOC_or_TRNG ; 

I  :=  I  +  1;  (  1  =  165  Data  Cctnmuni  cat  ions  Course  ) 

Quantity  :=  Data_CatimunicaLion; 

IF  DatajCcmnunication  >  0  THEN  PRINT_tXJC_or_TRNG; 

I  : =  I  +  1 ;  (  1=166  TANDEM  Application  Ding  Course  ) 

Quantity  :=  TAL; 

IF  TAL  >  0  THEN  PR INT_DOC_or_TRNG ; 

I  :=  I  +  1;  (  1  =  167  SPLICENet  WKSIIOP  ) 

Quantity  :=  SPLICENet_Workshop; 

IF  SPLICENet_Workshop  >  0  THEN  PRim,_DOC_or_’l'RNG; 

OOMPUTE_SECTION_TOTALS  ( 'Maintenance' ) ; 

Mode  :=  Maint; 

End;  (  Procedure  CONFIGURE  TRAINING  } 


{  1=161  Operator  Training  Course 


PROCEDURE  OONF IGURE_MA IN1ENANCE ; 

{********************«*******•*********************«*****************  | 

(  This  procedure  is  used  to  write-out  the  three  lines  required  on  I 

{  delivery  orders  Cor  maintenance.  Roth  PM  On-Call  and  On-Call  are  ) 

(  written  out  with  Quantity  =  1  and  all  remaining  items  =  0.  The  ! 

(  Maint  Months  of  Bnerqency  Maintenance  are  loaded  into  Quantity  I 

(  field  of  the  output,  inultipled  by  the  updated  emergency  ! 

(  maintenance  rate  and  then  written  to  disk.  The  applicable  I 

(  uplift  rate  is  written  out.  All  other  fields  are  =  0.  i 


PROCEDURE  !’R  INT_MA  1NT; 

I  Sets  Parameters  tor  tlie  three  categor .ms  to  lie  output  on  the 
(  delivery  order.  Sets  MONTHS  to  t)  and  Maint  Factor  to  the  ■ 


.v'.Q  Q.  .-v 


235 
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3251  I  (  emerg_maint_rate  input  by  the  user.  Uses  WRITE_A_LINE  to  I 
32521  (  actually  write  to  disk.  1 

32531  {***************************************************•************  | 

32541 

32551  Begin  (  FDC  EJnergency  Maint  ) 

32561  Maint_Months  :  =  0; 

32571  Maint_Factor  :=  Emerg_Maint_Rate; 

32581  Extended_Price  :  =  0; 

32591  WRITE_A_LINE ; 

32601  End;  {  Procedure  PRINT_MAINT  j 

3261  1 

32621 

32631  Begin  (  Procedure  OJNF IGURE_MA IN'IENANCE  ) 

32641  1  :  =  I  f  1;  1  1=168  PM  On-Call  I 

32651  (  If  no  items  have  been  selected  thus  far,  do  not  write  maint huiuv 

32661  line  items  to  delivery  order  output  diskfile.  1 

32671  IF  (Totals  [0,  1)  >  0)  OR  (Totals  [1,  1]  >  0)  OR  (Totals  |2,  1)  ■  <U  "It 
32681  (Totals  (3,  1)  >  0)  OR  (Totals  [4,  1]  >  0)  OR  (Totals  [5,  1|  -  0)  "R 

32691  (Totals  (0,  21  >  0)  OR  (Totals  [1,  2]  >  0)  OR  (Totals  [2,  2]  0)  "it 

32701  (Totals  (3,  2]  >  0)  OR  (Totals  (4,  2]  >  0)  OR  (Totals  [5,  21  ■  'll  I'lllIN 

3271  1  Begin 

32721  Quantity  :=  1 ; 

32731  PR 1NT_MA1NT ; 

32741  1  :=  r  *  1;  (  1=169  Skips  PM  Per-Cail  Maintenance  ' 

32751  I  :=  I  f  1;  (  [=170  On-Call  Maint  I 

32761  PRINT  MAINT; 

32771  End 

32781  ELSE  I  :=  I  *  2; 

32791  I  :=  I  +  1;  I  [=17!  Skips  Per-Call  Maintenance  ! 

32801  I  : =  I  i  1 ;  (1=172  Bnergency  Per-Call  Maintenance  I 

3281  1  Quantity  :=  Per_Cal  l_Months ; 

32821  IF  (Quantity  >  0  THEN  PRINT  MAINT; 

32831  CUMPi;i'E_SECT10N_,I'0TA[£  ('Other'); 

32841  End;  I  Procedure  CDNF1GURE_MA I ( f l’ENANCE  I 

32851 

32861 

32871  Begin  (  Procedure  CONI-' [CURE  ( I IMPf INEHTS  I 
32881  OJNF  [CUREJ 1ARDW7VRE ; 

32891  a  INF  I  GURE_SUFTWARE ; 

32901  I N IT I ALI ZE_LAST_SCREEH_DATA ; 

3291  I  GET_IAST_SCT:EN_DATA; 

32921  OJNF  lOlIREJOAXIMENTATlON ; 

32931  CONFI(3URE_TRAINING; 

32941  (JJNF  I  CURE  MA  [  NTENANCE ; 

32951  End;  (  Procedure  >iJFlC1IRK_COMI'"NMIT:j  I 

3295  |  !  Name  of  v*u  k  pt  i.ni  ini  <>s  me  hide  life  I 

3296  | 

329  / 1 

3298  PROCEDURE  SI  IMI-1AR I ZM; 
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3300  Const 

3301  LF  :  Char  =  #10;  (  Decimal  Value  for  an  ASCII  line  feed  ) 

3302  CR  :  Char  =  #13;  (  Decimal  Value  for  an  ASCII  carriage  return  ) 

3303  Ctrl_Z  :  Char  =  ~Z;  (  Value  of  ASCII  "Control-Z"  end-of-file  narker  ) 

3304 

3305  Var 

3306  System_Downtime  :  Real; 

3307 

3308 

3309  Begin  (  Procedure  SUMMARIZE  } 

3310  System_Downtime  :=  (((Subtotals  [0,  1]  +  Subtotals  [0,  3]  *  Subtotals  (1,  1) 

3311  •  +  Subtotals  (1,  31  *■  Costtablel  1  ] . purchprice) /48 ) 

3312  +  System_Downtirne_Ccmponent )  *  0.0125; 

3313  WRITELN  (Diskfile); 

3314  WRITELN  (Diskfile); 

3315  WRITELN  (Diskfile,  ’ "NOTES:" ‘ ) ; 

3316  WRITELN  (Diskfile); 

3317  WRITELN  (Diskfile,  'MAINTENANCE  OPTION  =  ’,  SiteInfo.maint_options,  ""  ) ; 

3318  WRITELN  (Diskfile); 

3319  WRITELN  (Diskfile,"",  'MAINTENANCE  REPAIR  AND  RESPONSE  =  ', 

3320  SiteInfo.maint_response,  ""  ) ; 

3321  WRITELN  (Diskfile); 

3322  WRITELN  (Diskfile, 

332  3  '"MAINTENANCE  REQUIRED  FROM  END  OF  NINETY  (90)  DAY  WARRANTY  PERIOD.'"); 

3324  WRITELN  (Diskfile); 

3325  WRITELN  (Diskfile, 

3326  '"CARD  READER  AND  CARD  READER  PUNCH  CAPABILITIES  TEST  REQUIREMENTS  ARE  WAIVED.' 

3327  WRITELN  (Diskfile); 

3328  WRITELN  (Diskfile,  "'SYSTEM  DOWNTIME  CREDIT  FACTOR  PER  HOUR  EQUALS:  , 

3329  ”'W"',  ' "  "',  System_Dawntime) ; 

3330  WRITELN  (Diskfile); 

3331  ( ************************»*****************♦***********) 

3332  (*  Terminate  the  .PRN  file  witti  a  'CR>,  <LF>  and  ♦) 

3333  (*  a  <Ctrl  Z>  End  Of  File  Character.  *) 

3334  (************************»**********♦*******♦*»********) 

3335  WR ITELN  (Diskfile,  CR,  LF,  Ctrl_Z); 

3336  Q USE  (Diskfile); 

3337  CIjOSE  ( Screenf  i  le ) ; 

3338  TexfColor  (12); 

3339  CirScr; 

3  340  UOTOXY  (1,  9); 

3341  WRITELN  ( ’Thank  you  lor  using  the  SPLICE  conf igurer . 1 : 58 ) ; 

3342  WR ITELN ; 

3  3  4  3  WRITELN; 

3344  T'-xfColor  (15); 

3145  WRITELN  ('Your  output  tile  is  called  '  :  413 ,  PPM  Fit*'  Name,'.'); 

3  346  WRITELN; 

1347  WRITELN; 

3  348  Text  Color  (11); 

3349  WRITELN  ('The  output  file  is  read/  lor  import  into  UTIL'S  1  2  3':(i5); 
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3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 


TextColor  (15); 

End;  {  Procedure  SUMMARIZE 


Begin 

INITIALIZE; 

GONE I GURE_COMPONENTS ; 
SUMMARIZE; 

End. 


Main  Program  I 
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1  *  PROCEDURE  CONFMOD.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEW 

9  *  ALL  DATA  IN  THE  SITE  CONFIGURATION  DATABASE. 

1 0  * 

1  1  *  INPUT  FILES  :  NONE 

12  * 

13  *  OUTPUT  FILE  :  NONE 

14  * 

15  *  MODULES  CALLED  :  CONFUPD.PRG.  (TONFPREV . PRG 

16  * 

17  *  CALI  .ED  BY  :  MA INMENU. PRG 

18  * 

19  *  LOCAL  VARIABLES:  SELEKT 

20  * 

21  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========== 

22  * 

23  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE 

24  *  SELECTION. 

25  * 

26  STORE  "1"  TO  SELEKT 

27  DO  WHILE  SELEKT  <  "3" 

28  SET  COLOR  TO  W/B,  W/B 

29  CLEAR 

30  ??  FLASH  t-  "W.CONFMOD/" 

31  SET  CONSOLE  OFF 

32  WAIT  TO  SELEKT 

33  SET  CONSOLE  ON 

34  * 

35  *  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

36  * 

37  DO  CASE 

38  * 

39  *  CALL  'HIE  SHE  CONFIGURATION  UPDATE  PROGRAM . 

40  CASE  SEIEKT  =  "1" 

41  DO  CONFUPD 

42  * 

43  *  CALL  THE  SITE  CONFIGURATION  REVIEW  PROGRAM. 

44  CASE  SELEKT  =  "2" 

45  DO  OONFREV 

46  * 

47  *  REIURN  TO  THE  MAIN  MENU  PROGRAM . 

48  CASE  SEIJ3KT  -  "3" 

49  * 

50  ENDCASE 
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51  * 

52  ENDDO  WHILE  SELEKT  <  "3" 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 

57  ****** ************************************************ *********  ********  .  , 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4  b 

47 

48 

49 

50  1 


*  PROCEDURE  CONFREV . PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

* 

*  INPUT  FILES 

* 

*  OUTPUT  FILES 

* 

*  CALLED  BY 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ENABLE  THE  USER  TO  REVIEW  ANY  DATA  ELEMENT  IN 
THE  SITE  NAME  DATABASE . 

CONFIG. DBF  INDICES:  CONFIG. NDX 

NONE 

OONFMOD . PRG 


*  MODULES  CALLED  :  DELAY . PRG 

* 

*  GLOBAL  VARIABLE:  HISITE,  DOSITE 

* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  ERROR,  F I RST_REC ,  LAST_REC , 

*  MADU1  ,  MAUD2 ,  MCI'I'Y,  MCO,  MESSAGE,  MNAME ,  MNAMEFL, 

*  MOPT,  MRESP,  MS l 'IE,  MSTATE,  MTYPE,  MZ1P 


*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  < 

* 


*  CASE  SELECTION  =  2  REVIEW  EXISTING  RECORDS 

* 


*  USE  THE  SITE  NAME  (CONFIG)  DATABASE  USING  THE  SITE  NUMBER  INDEX. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  CONFIG 
GO  TOP 

SEP  COLOR  TO  W+/B,W+/B,B 
CLEAR 

IF  EOF ( )  =  .T.  THEN 

SCT  COUDR  TO  W  + / R ,  W+/R 

'a  13,24  SAY  "  The  SITE  NAME  Database  is  EMPTY!  " 

LXJ  DELAY 
RETURN 
END  IF 

??  FLASH  +  "S.SITENAME.SCR/" 

(3  24,0  SAY  SPACE  (80) 

SET  COLOR  TO  R+/  ,R  +  / 

a  3,23  SAY  ’  SITE  ADDRESS  DATA  REVIEW  FORMAT  ’ 

STORE  ’Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  site  ’  t; 

’  numtier  between  ’  *  IiOSITE  +  ’  and  1  ♦-  HIS  LIE  +  ’  ’  TO  MESSAGE 
SEP  COLOR  TO  /W,  /W 
*  24,0  SAY  MESSAGE 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
9  3 

94 

95 

96 
9  7 

98 

99 
00 


DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  '00'  TO  MSITE 
a  7,25  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  + ; 

HISITE  +  1 ,  Zero  ( 00 )  or  99  '  TO  ERROR 

a  24,13  SAY  ERROR 
DO  DELAY 

SETT  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MS HE  =  '00'  .OR.  MSITE  =  '99')  THEN 
USE  CONFIG 
IF  MSITE  =  '00'  THEN 
GO  BOnOM 

STORE  RECNO( )  TO  LAST_REC 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
EIjSE 

GO  'TOP 

STORE  RECNO( )  TO  FIRST _R£C 
GO  BOTTOM 

STORE  RECNO( )  'TO  LAST_REC 
ENDIF  MSITE  =  '00' 

EXIT 

EI£E 

USE  CONFIG  INDEX  ODNFIG.NDX 
GO  'TOP 

STORE  RECNO( )  'TO  FIRST  EEC 
GO  BOTTOM 

STORE  RECNO( )  TO  LASTJ7EC 
FIND  & MSITE 
IF  EOF(  )  =  .T.  WEN 

SET  OOIOR  70  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

STORE  "  No  records  exist  tor  site  numiier  "  >  MSITE  >; 

",  try  again  "  70  ERROR 
«  24,16  SAY  ERROR 
SET  COLOR  70  Wi/R,  Wi/R 
DO  DELAY 

SET  COIOR  70  /W,  /W 

24,0  SAY  MESSAGE 
LOOP 

ELSE 
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101 

EXIT 

102 

END IF  EOF( )  =  .T. 

103 

ENDIF  (MSITE  =  '00'  .OR.  MSITE  =  ’99') 

104 

ENDIF 

105 

ENDDO  WHILE  .T. 

106 

* 

107 

SET  COLOR  TO  W/B,  W/D 

108 

@ 

24,0  SAY  SPACE (80) 

109 

* 

1  10 

DO 

WHILE  .T. 

1 1 1 

SET  COLOR  TO  R+/B,  R+/B 

112 

(a  5,47  SAY  RECNO(  )  PICT  "999" 

113 

SET  COLOR  TO  /BR,  /BR 

114 

0  7,25  SAY  SITENO  PICT  "99" 

115 

0  8,25  SAY  SITENAME  PICT  "!!!!!!! ! !!!!!! 1  1  !!!!!!!!!!!!!!!!!  1  1 

1  (  1  t  (  (  1  1  1 

Mil" 

116 

0  9,25  SAY  S1TECO  PICT  "!!!!!!!  i !!!!  1  !!!!!!! " 

117 

@  10,25  SAY  SITENAMEFL  PICT  "!!!!!!!!!!!!!!!!!!!  J  !!!!!!!  1  1  !!!  ! 

1  1  1  1  I  1  M 

118 

@  11,25  SAY  SITEADD1  PICT  "  i  !!!!!!!!!!!!!!!  I  !!!!!!!!  1  !!!!!!  I  !  ! 

MM" 

115 

@  12,25  SAY  SITEADD2  PICT  "!!!!!!!!!!!! 1 !!!!!!!! ! 1 ! i 1 1 ! ! ! ! i ! ! ! 

MM" 

120 

0  13,25  SAY  SITECITY  PICT  "!!!! 1 !!!!!!!!!!!!!  1  !!!!!!!!!  I  U  !!  I  ! 

MM" 

121 

fl  14,25  SAY  SITESTATE  PICT  "!!" 

122 

a  15,25  SAY  SITEZIP  PICT  "9999999999" 

123 

0  16,25  SAY  SITETYPE  PICT  "li!!" 

124 

0  17,35  SAY  MAINTOPT  PICT’  "Hit" 

125 

0  18,35  SAY  MAINTRESP  PICT 

126 

SET  COLOR  TO  R+/B,  R+/B 

127 

STORE  "N"  TO  aiOICE 

128 

0  22,68  GEr  aiOICE  PICT  "!" 

129 

READ 

130 

* 

1  31 

* 

ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "N" ,  "p"  OR  "X" 

1  32 

* 

133 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  QIOICE  =  "P"  .OR.  CHOICE  --  "> 

I") 

1  34 

IF  .NOT.  (QIOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" 

THEN 

1  35 

SET  COLOR  TO  W+/R,W+/R 

1  36 

0  24,23  SAY  "  Response  must  be  either  N,  P  or  X 

1  37 

DO  DELAY 

1  38 

STORE  "N"  TO  CHOICE 

1  39 

ENDIF 

1  40 

SEI’  COT  OR  TO  Rf/B,  1U/B 

141 

a  22,68  GET  CHOICE  PICT 

1  42 

READ 

143 

ENDDO 

1  44 

* 

145 

+ 

SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

1  46 

* 

147 

IF  CHOICE  =  "N"  THEN 

1  48 

IF  REGNO  (  )  =  I  AST  REC  THEN 

1  49 

(71  TOP 

150 

ELSE 
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151  SKIP 

1  52  END IF 

1  53  END IF 

154  * 

155  *  SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 

156  * 

157  IF  CHOICE  =  "P"  THEN 

158  IF  RECNO< )  =  FIRST_REC  THEN 

159  GO  BOTTOM 

160  ELSE 

161  SKIP  -1 

162  END IF 

1 63  END IF 

1 64  * 

1  65  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

166  * 

167  IF  CHOICE  =  "X" 

168  EXIT 

1 69  ENDIF 

1 70  * 

171  ENDDO  WHILE  .T. 

172  * 

173  *  RETURN  TO  CALLING  PROGRAM. 

1  74  * 

175  RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC 

1 76  CLOSE  DATABASES 

177  RETURN 

1  78  *********************************+*****+*****+*************** 
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fci 


1 

2 

3 

4 

5 

6 


j 


16 

17 

18 
1  9 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


42 

43 

44 

45 

46 

47 

48 

49 

50 


PROCEDURE  CDNFUPD.PRG 
AUTHORS 


PURPOSE 

INPUT  FILES 
■  "V  FILES 
U.LUlJiS  CALLED 
CALLED  BY 
GLOBAL  VARIABLE 
LOCAL  VARIABLES 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ENABLE  THE  USER  TO  MODIFY  ANY  DATA  ELEMENT  IN 
THE  SITE  NAME  DATABASE. 

CONFIG. DBF  INDICES:  CONFIG. NDX 

CONFIG. DBF,  INDICES:  CONFIG. NDX 

DELAY . PRG 

CONFMOD.PRG 

H1SITE,  LOSITE 

ACCEPr,  ANS,  CHOICE,  ERROR,  .F1RSTJIEC,  IAST_REC, 
MADD1 ,  MADD2 ,  MCiTY,  MOO,  MESSAGE,  MNAME,  MNAMEFL , 
MOPr,  MRESP ,  MS  HE,  MSTATE,  MTYPE,  MZIP,  SAVEIT 


DA'IE  LAST  TIME  MODIFIED  ========  =  =>  23  DECEMBER  1985  <  = 


BEGIN 

CASE  SELECTION  =  1 


UPDATE  EXISTING  RECOI3DS 


*  USE  THE  SITE  NAME  (CONFIG. DBF)  DATABASE  USING  THE  SHE  NUMBER  INDEX. 

* 


SET  ESCAPE  OFF 
SET  SCOREBOARD  OFF 
SET  TALK  OFF 
USE  CONFIG 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  Wi/R 

J  13,24  SAY  "  The  SITE  NAME  Database  is  EMPTY!  " 

DO  DELAY 
REIURN 
END  IF 

??  FLASH  t  "S .  S I TEN/AME . SCR  /  " 

■4  24,9  SAY  SPACE!  80) 

SET  COLOR  TO  R  +  /  , R . / 

d  3,2  5  SAY  '  SITE  ADDRESS  DATA  UPDATE  FORMAT  ' 

S'lORK  'Enter  90  to  start  at  TOE,  99  t.o  start  at  W'F,  or  a 
'number  I*? tween  1  ♦  DSI'IE  ^  1  and  '  ^  I1ISITE  *  '  ' 


IO  ME. CAGE 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
79' 
80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  '00'  TO  MSITE 
@7,25  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  -OR.  MS  HE  =  '99') 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  1  + ; 

HISITE  +  ',  Zero  (00)  or  99  ’  TO  ERROR 

@  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 
USE  CONFIG 
IF  MSITE  =  ’00'  THEN 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 

ELSE 

GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO)  LAST_REC 
ENDIF  MSITE  =  '00' 

EXIT 

ELSE 

USE  CONFIG  INDEX  CONFIG. NDX 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
a)  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 

FIND  &MSTTE 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

STORE  "  No  records  exist  for  site  number  "  v  MS I'lE  *; 

",  try  again  "  TO  ERROR 
@  24,16  SAY  ERROR 
SET  COLOR  TO  Wt/R,  Wt/R 
DO  DEI  vi Y 

SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 


ms- 
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101  LOOP 

102  ELSE 

103  EXIT 

104  ENDIF  EOF ( )  =  .T. 

105  ENDIF  (MSITE  =  '00'  .OR.  MSITE  =  ’99') 

1 06  ENDIF 

107  ENDDO  WHILE  .T. 

108  * 

109  SET  COLOR  TO  W/B,  W/B 

110  {3  24,0  SAY  SPACE ( 80 ) 

111  * 

112  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update*  +; 

113  SPACE (16)  TO  MESSAGE 

114  STORE  1  TO  INTRO 

115  DO  WHILE  .T. 

116  SET  COLOR  TO  /W,  /W 

117  @  24,0  SAY  MESSAGE 

118  * 

119  *  INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

120  * 

121  IF  INTRO  =  1  THEN 

122  STORE  0  TO  INTRO 

123  ??  FLASH  +  "W.CONFUPD/" 

124  SET’  CONSOLE  OFF 

125  WAIT  TO  ANS 

126  SET  CONSOLE  ON 

1 27  ENDIF 

128  * 

129  *  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.  THE  M  PREFIX 

130  *  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

131  *  CORRESPONDING  DATABASE  FIELDS. 

1  32  * 

1  33  STORE  SITENO  'TO  MSITE 

1  34  STORE  SITENAME  TO  MNAME 

1  35  STORE  SITECO  TO  MOO 

1  36  STORE  SITENAMEFL  TO  MNAMEFL 

137  STORE  SITEADD1  TO  MADD1 

1 38  STORE  SITEADD2  TO  MADD2 

1 39  STORE  SITECITY  TO  MCITY 

140  STORE  S ITESTATE  TO  MSTATE 

141  STORE  SITEZIP  TO  MZ1P 

142  STORE  SITETYPE  TO  MrYPE 

143  STORE  MA1NTOPT  TO  MOPr 

144  STORE  MAINTRESP  TO  MRESP 

145  * 

146  SET  COLOR  TO  Rt-/B,  R  +  /B 

147  fd  5,47  SAY  R£CNO<  )  PICT  "999" 

148  SET  OOI OR  TO  /BR,  /BR 

1 49  * 

150  d  7,25  SAY  MSITE  PICT  "99" 
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i  i  i  i  i  m  i  m  i  i  m  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 1 


@8,25  GET  MNAME  PICT  "!!!!!!!!!!!!!! 
@9,25  GET  MOO  PICT  "!!!!!!!!!! I! !!! ! 
@  10,25  GET  MNAMEFL  PICT  "!!!!!!!!!!!! 
@  11,25  GET  MADD1  PICT  " ’ • I i 1 1  *  1  *  I  1 ! ! ! 
@  12,25  GET  MADD2  PICT  "!!!!!!!!!!!!!! 
@  13,25  GET  MCITY  PICT  " ! !  I ! ! !  I ! !  1 1 !  I ! 
@  14,25  GET  MSTATE  PICT  "!!" 

@  15,25  GET  MZIP  PICT  "9999999999" 

@  16,25  SAY  MTYPE  PICT  "!!!!" 

@  17,35  GET  MOPT  PICT  "i!!!" 

@  18,35  GET  MRESP  PICT 
READ 

CHECK  TO  SEE  IF  ANY  RECORD  WAS  CHANGED 


SEr  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

STORE  1  TO  SAVE IT 
IF  (SITENO  =  MSITE) 

IF  (SITENAME  =  MNAME) 

IF  (SITECO  =  MOO) 

IF  (SITENAMEFL  =  MNAMEFL) 

IF  (SITEADD1  =  MADD1 ) 

IF  (SITEADD2  =  MADD2 ) 

IF  (SITECITY  =  MCITY) 

IF  (SITESTATE  =  MSTATE) 

IF  (SITEZIP  =  MZIP) 

IF  (SITETYPE  =  MTYPE) 

IF  ( MAINTOPT  =  MOFD 
IF  (MAINTRESP  =  MRESP) 

STORE  0  'TO  SAVE IT 
ENDIF 
END  IF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

* 

*  ASK  THE  USER  IF  I1E/SHE  DESIRES  TO  ACCEPT  'll  IE  CHANGES,  ONLY  IF  ANY 

*  Q  LANGES  WERE  MADE 

* 

IF  SAVE IT  =  1  THEN 

SET  GUI  OR  TO  W+/B,  Wt/B 

"3  20,12  SAY  "Do  you  want  to  accept  the  changes:’  (Yes  or  No):" 


?  4  8 
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SETT  COLOR  TO  R+/B,  R+/B 
@  20,49  SAY  "Y" 

@  20,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@  20,62  GET  ACCEPT  PICT  "l" 

READ 

ENSURE  THAT  THE  USER'S  PROMPr  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .Nai’.  (ACCEPT’  =  "N"  .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SETT  COLOR  TO  W+/R,W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
@  20,62  GET  ACCEPT  PICT  "j" 

READ 

ENDDO 

@  20,10  SAY  SPACE  (60) 

STORING  THE  CORRECTED  EDIT  FIELDS  FROM  THE  WORK  AREA. 

IF  ACCEPT  =  "Y"  THEN 

REPIAGE  SITENO  WITH  MSITE 
REPLACE  SITENAME  WITH  MNAME 
REPLACE  SITECO  WITH  MCO 
REPLACE  SITENAMEFL  WITH  MNAMEFL 
REPLACE  SITEADD1  WITH  MADD1 
REPLACE  SITEADD2  WITH  MADD2 
REPLACE  SITECITY  WITH  MCITY 
REPLACE  SITESTATE  WITH  MSTATE 
REPLACE  SITEZIP  WITH  MZIP 
REPLACE  SITETYPE  WITH  KFYPE 
REPLACE  MAINTOPT  WITH  MOPT’ 

REPLACE  MA1NTRESP  WITH  MR ESP 
ENDIF 
ENDIF 

SEr  COLOR  TO  R+/B,R+/B 
STORE  "N"  TO  CHOICE 
@  22,68  GCT  QIOICE  PICT  "l" 

READ 


ENSURE  THAT  THE  USER’S  PROMPT  IS  EITHER  "N",  "p"  OR  "X" 

DO  WlillE  .NOT.  (CHOICE  =  "tl"  .OR.  QIOICE  =  "P"  .OR.  CHOICE 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 


IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
ia  22,68  GET  CHOICE  PICT  "!" 

READ 

ENDDO 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED  . 

* 

IF  CHOICE  =  "N"  THEN 

IF  RECNO  ( )  =  LAST  REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF 

♦ 

*  SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 

IF  CHOICE  =  "P"  THEN 

IF  RECNO  (  )  =  FIRS'1'_REC  THEN 
GO  BOTTOM 

ELSE 

SKIP  -1 
ENDIF 
ENDIF 

* 

*  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

* 

IF  CHOICE  =  "X" 

EXIT 

ENDIF 

♦ 

ENDDO  WHILE  .T. 

* 

*  RETURN  TO  CALLING  PROGRAM. 

* 

RELEASE  ALL  LIKE  M+ ,  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST  REC,  IASTJ 

CLOSE  DATABASES 

RETURN 

t**'******+**t*ttt***  +  *t'(<*t*tt  +  ^1'*1‘++*+*tt'Hfi<t'*  +  tt*t*'tt  +  tt  *  +  +  * 


)  THEN 


(EC,  SAVE  IT 


•i 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4b 

47 

48 

49 

50 


*  PROCEDURE  DATERPTS.PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

★ 

*  INPUT  FILES 

* 

*  OUTPUT  FILES 

* 

*  CALLED  BY 

* 

*  MODULES  CALLED 

♦  ■ 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SELECTION  OF  EFFECTIVE  DELIVERY 
ORDER  DATE  LEVEL  REPORTS. 

NONE 

NONE 

REPORCMD . PRG 

EQPDTPRC.PRG,  EQPDTNPC. PRG,  SNODTRPT. PRG 


*  LOCAL  VARIABLES:  DATERPTS 

* 


*  DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  < 

* 


*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  TOR  'THE  SELECTION. 

* 

STORE  "1"  TO  DATERPTS 
DO  WHILE  DATERPTS  <  "4" 

SET  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W. DATERPTS/" 

SET  CONSOLE  OFF 
WAIT  TO  DATERPTS 
SET  CONSOLE  ON 

* 

*  PROCESS  ROUTINE  BASED  ON  11  IE  USER’S  SELECTION. 

* 

DO  CASE 

+ 

*  CALL  THE  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REP  RT 

*  WITH  UNIT  C  1ST  PROGRAM. 

CASE  DATERPTS  =  "l" 

130  EQPDTPRC 

* 

*  CALL  THE  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REP >KT 

*  WITHOUT  UNIT  COST  PRUIRAM. 

CASE  DATERPTS  =  "2" 

DO  EQPDTNPC 

* 

*  CALL  THE  SERIAL  NUMBER  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REP  >RT. 

CASE  DATERPTS  =  ”3" 

DO  SNOD’I’RPT 
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51  * 

52  *  RETURN  TO  THE  SPLICE  REPORTING  LEVEL  MENU. 

53  CASE  DATERFTS  =  "4" 

54  * 

55  ENDCASE 

56  * 

57  ENDDO  (WHILE  DATERPTS  =  "4") 

58  * 

59  *  RETURN  TO  THE  CALLING  PROGRAM 

60  * 

61  REIURN 

52  ** ************************************************  ******* **************** 
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1  *  PROCEDURE  DELAY. PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  J.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  TO  PROVIDE  A  SHORT  DELAY  AFTER  THE  DISPLAY  OF  AN 

9  *  ERROR  MESSAGE  TO  THE  USER  SUFFICIENT  TIME  TO  READ 

10  *  'll  IE  MESSAGE. 

11  * 

12  *  INPUT  FILES  :  NONE 

13  * 

14  *  OUTPUT  FILES  :  NONE 

15  * 

16  *  CALLED  BY  :  SELECTOR . PRG ,  MAINMENU.PRG,  CONFREV . PRG ,  CONFUPD.PRG 

17  * 

18  *  LOCAL  VARIABLES:  DELAY 

19  * 

20  *  DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  <========== 

21  * 

22  STORE  1  TO  DELAY 

23  DO  WHILE  DELAY  <  60 

24  *  STORE  DELAY  +  1  TO  DELAY 

25  ENDDO  DELAY  <  60 

26  * 

27  *  CLEAR  OUT  THE  ERROR  MESSAGE 

28  * 

29  SET  OOLOR  TO  W+/B,  W+/B 

30  0  24,0  SAY  SPACE  (80) 

31  * 

32  *  RETURN  'ID  THE  CALLING  PROGRAM 

33  * 

34  RETURN 

35  *****  +  ************************  *******  m***mn**nwnt»nt**tm*n*t 
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1  *  PROCEDURE  DESPMOD.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEW 

9  *  ALL  DATA  IN  'HIE  DESCRIPTION  DATABASE. 

10  * 

1 1  *  INPUT  FILES  :  NONE 

12  * 

13  *  OUTPUT  FILE  :  NONE 

14  * 

15  *  CALLED  BY  :  MA1NMENU.PRG 

16  * 

17  *  MODULES  CALLED  :  DESPPUPD. PRG,  DESPPREV.PRG,  DELAY. PRG 

18  * 

19  *  LOCAL  VARIABLES:  SELEKT 

20  * 

21  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========= 

22  * 

23  *  DISPIAY  'HIE  PROCESS  MENU  TO  THE  USER  AND  WAIT  POR  THE 

24  *  SELECTION. 

25  * 

26  STORE  "1"  TO  SELEKT 

27  DO  WHILE  SELEKT  <  "3" 

28  SET  COLOR  TO  W/B,  W/B 

29  a  .EAR 

30  ??  FLASH  "W.DESPMOD/" 

31  SET  CONSOLE  OFF 

32  WAIT  TO  SELEKT 

33  SET  CONSOLE  ON 

34  * 

35  *  PROCESS  ROUTINE  BASED  ON  THE  USER’S  SELECTION. 

36  * 

37  LXJ  CASE 

38  * 

39  *  CALL  THE  DESCRIPTION  UPDATE  PROGRAM. 

40  G\SE  SEILKT  --  "l" 

41  DO  DESPPUPD 

42  * 

4  3  *  CALL  II IE  DESCRIPTION  REVIEW  PROGRAM. 

44  CASE  SELEKT  =  "2" 

45  DO  DESPPREV 

46  * 

47  *  RETURN  'TO  ’HIE  MAIN  MENU  PROGRAM. 

48  CASE  SEIJ3KT  =  "3" 

49  ♦ 

50 


HNUCASE 
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51  * 

52  ENDDO  (WHILE  SELEKT  =  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 

5-7  ******************  *************.******.****************************  ******** 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  DESPPREV. PRG 

* 


*  AUTHORS 

* 

★ 

* 

* 

*  PURPOSE 

* 

* 

*  INPUT  FILES 

* 

*  OUTPUT  FILES 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ENABLE  THE  USER  TO  REVIEW  ANY  DATA  ELEMENT  IN 
THE  DESCRIPTION  DATABASE. 

DESCRIP. DBF  INDICES:  DESCRIP. NDX 

DESCRIP. DBF,  INDICES:  DESCRIP. NDX 


*  MODULES  CALLED  :  DELAY. PRG 

* 


*  CALLED  BY  :  DESPMOD. PRG 

* 


*  GLOBAL  VARIABLE:  LOFNUM,  HIFNUM 

* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST_REC,  LAST EC, 

*  MBMA1NT,  MCLIN,  MDESCR1P,  MESSAGE,  MFDCMODL, 

*  MFEAT ,  MMODELNO,  MTOOMP 

* 


*  DATE  LAST  TIME  MODIFIED  =========*>  23  DECEMBER  1985  < 

* 


*  BEGIN 

*  CASE  SELECTION  =  2  REVIEW  EXISTING  RECORDS 

* 

*  USE  DESCRIPTION  DATABASE  USING  THE  FEATURE  NUMBER  INDEX. 

* 


SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  DESCRIP 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF (  )  =  .T.  'THEN 

SET  COLOR  TO  W+/R,  W*/R 

a  13,17  SAY  "  The  EQUIPMENT  DESCRIPTION  Database  is  EMPTY !  " 

DO  DELAY 
RETURN 
ENDIF 

??  FLASH  +  "S.DESCRIPr.SCR/" 
fa  24,0  SAY  SPACE (80) 

0  2,39  SAY  "REVIEW" 

STORE  1  Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  six  digit 
’feature  number  ’  'TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
@6,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  '00  '  .OR.  MFEAT  =  ' 99  ') 

SEP  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SETT  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  ’  +  LOFNUM  +  '  and  '  + ; 

HIFNUM  +  ' ,  Zero  ( 00 )  or  99  'TO  ERROR 
@24,8  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MFEAT  =  '00  '  .OR.  MFEAT  =  '99  ’)  THEN 

USE  DESCRIP 

IF  MFEAT  =  '00  ’  THEN 

GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 

ELSE 

IF  MFEAT  =  '99  '  THEN 

GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO(  )  TO  LAST_REC 
ENDIF  MFEAT  =  ' 99 
END IF  MFEAT  =  '00 
STORE  FEATURENO  TO  MFEAT 
EXIT 

ELSE 

USE  DESCRIP  INDEX  UESCRIP.NDX 
GO  TOP 

STORE  RECNOi )  TO  F IRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 

FIND  <4 MFEAT 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
•a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  No  record  exists  for  feature  nujnber  '  + ; 

MFEAT  ^  ',  try  again  '  TO  ERROR 
a  24,12  SAY  ERROR 
DO  DELAY 
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101  SET  COLOR  TO  /W,  /W 

102  @24,0  SAY  MESSAGE 

103  LOOP 

104  ELSE 

1 05  EXIT 

106  END IF  EOF ( )  =  .T. 

107  ENDIF  (MFEAT  =  '00  ’  .OR.  MFEAT  =  ' 99  ’) 

1 08  ENDIF 

109  ENDDO  WHILE  .T. 

110  * 

111  SET'  COLOR  TO  W/B,  W/B 

112  -a  24,0  SAY  SPACE  (80) 

113  @  20,20  SAY  "To  view  this  field,  enter  the  update  mode." 

114  DO  'WHILE  .T. 

115  SET  COLOR  TO  R+/B,  R+/B 

116  @4,46  SAY  RECNO( )  PICT  "99999" 

117  SET  COLOR  TO  /BR,  /BR 

118  a  6,45  SAY  FEATURE!*)  PICT  "999999" 

119  a  8,45  SAY  CLLN  PICT  "9999" 

120  a  10,45  SAY  DESCIPT  PICT  "!!!!!!!!!!!!!  I  !!!!!!!!!!!!!!  I !  " 

121  «J  12,45  SAY  MODELNO  PICT  "!!!!!!!!!!" 

122  @14, 45  SAY  FDCMODEL  PICT  "!!!!!!!!!!!!!!!" 

123  @  16,45  SAY  TYPECOMPON  PICT  "j" 

124  @  18,45  SAY  BASEMAINT  PICT  "9999.99" 

125  SET  COLOR  TO  R+/B,  R+/B 

126  STORE  "N"  TO  QIOICE 

127  a  22,67  GET  CHOICE  PICT 

128  READ 

129  * 

130  *  ENSURE  THAT  'DIE  USER'S  PROMPT  IS  EITHER  "N" ,  "P"  OR  "X" 

1  31  * 

132  DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  QIOICE  ---  "X") 

133  IF  .NOT.  (CHOICE  =  "N"  .OR.  QIOICE  -  "P"  .OR.  CHOICE  =  "X" )  'IHEN 

134  SCT  COLOR  TO  W+/R,  W+/R 

135  @  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

136  DO  DELAY 

1  37  STORE  "N"  TO  CHOICE 

138  ENDIF 

139  SCT  COLOR  TO  R+/B,  R+/B 

140  a  22,67  GET  QIOICE  PICT  "i" 

141  READ 

1 42  ENDDO 

143  * 

144  *  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

1  45  * 

146  IF  QIOICE  =  "N"  THEN 

147  IF  RECNO  ()  =  I  AST  RFC  THEN 

148  GO  TOP 

1 49  ELSE 

1 50  SKIP 
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1 51  ENDIF 

1 52  ENDIF 

153  * 

154  *  TO  TIE  PREVIOUS  RECORD  TO  BE  REVIEWED 

155  * 

156  IF  CHOICE  =  "P"  THEN 

157  IF  RECNO( )  =  FIRST_REC  THEN 

158  GO  BOTTOM 

159  ELSE 

160  SKIP  -1 

161  ENDIF 

1 62  ENDIF 

163  * 

164  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

165  * 

166  IF  CHOICE  =  "X" 

167  EXIT 

1 68  ENDIF 

169  ENDDO  WHILE  .T. 

170  * 

171  *  RETURN  TO  CALLING  PROGRAM. 

172  * 

173  RELEASE  ALL  LIKE  M* ,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC 

174  CLOSE  DATABASES 

175  RETURN 

176  ******  ******************************************************************* 
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1  *  PROCEDURE  DESPPUPD.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  TO  ENABLE  THE  USER  TO  MODIFY  ANY  DATA  ELEMENT  IN 

9  *  THE  DESCR I CPT ION  DATABASE. 

10  * 

11  *  INPUT  FILES  :  DESCRIP. DBF  INDICES:  DESCRIP. NDX 

12  * 

13  *  OUTPUT  FILES  :  DESCRIP. DBF,  INDICES:  DESCRIP. NDX 

1 4  * 

15  *  MODULES  CALLED  :  DELAY. PRG 

16  * 

17  *  CALLED  BY  :  DESPFJOD .  PRG 

18  * 

19  *  GLOBAL  VARIABLE:  LOFNUM,  HIFNUM 

20  * 

21  *  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  ERROR,  INTRO,  MBMAINT,  MCLIN, 

22  *  MDESCRIP,  MESSAGE,  MFDCMODL,  MFEAT,  MMODELNO ,  MTOOMP 

23  * 

24  *  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <========== 

25  * 

26  *  BEGIN 

27  *  CASE  SELECTION  =  1  UPDATE  EXISTING  RECORDS 

28  * 

29  *  USE  DESCRIPTION  DATABASE  USING  'll  IE  FEATURE  NUMBER  INDEX. 

30  * 

31  SET  ESCAPE  OFF 

32  SET  TALK  OFF 

33  USE  DESCRIP 

34  GO  TOP 

35  SET  COLOR  TO  W+/B,  W+/B,  B 

36  CLEAR 

37  IF  EOF( )  =  .T.  THEN 

38  SET  COLOR  TO  W+/R,  W+/R 

39  ta  13,17  SAY  "  The  EQUIPMENT  DESCRIPTION  Database  is  EMPTY!  " 

40  DO  DELAY 

4 1  RETURN 

42  ENDIF 

43  ??  FLASH  +  "S . DESCR I PT. SCR/" 

44  a  24,0  SAY  SPACE(80) 

45  «  2,39  SAY  "UPDATE" 

46  STORE  '  Enter  00  to  start  at  TOF,  99  to  start  at  EOF’,  or  a  six  digit  ' 

47  1  feature  number  1  TO  MESSAGE 

48  SET  COLOR  'TO  /W,  /W 

49  «  24,0  SAY  MESSAGE 

50  DO  WHILE  .T. 
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SET  COLOR  TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
@6,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  '00  '  .OR.  MFEAT  =  ' 99  ') 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  ’  +  LOFNUM  +  '  and  ' 
HIFNUM  +  ' ,  Zero  (00)  or  99  'TO  ERROR 
@  24,8  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MFEAT  =  '00-  '  .OR.  MFEAT  =  ' 99  ’)  THEN 

USE  DESCRIP 

IF  MFEAT  =  '00  '  THEN 

GO  BOTTOM 

STORE  RECNO( )  TO  LAST_R£C 
GO  TOP 

STORE  RBCNO( )  TO  FIRST  REC 

ELSE 

IF  MFEAT  =  '99  '  THEN 

GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
ENDIF  MFEAT  =  ' 99 
ENDIF  MFEAT  =  '00 
STORE  FEATURENO  TO  MFEAT 
EXIT 

ELSE 

USE  DESCRIP  INDEX  DESCRIP.NDX 
GO  TOP 

STORE  RECNO(  )  TO  FIRS'I'  REC 
GO  BOTIOM 

STORE  RECNO(  )  'TO  12\ST_REC 
FIND  X MFEAT 
IF  EOF(  )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE( 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  No  record  exists  lor  feature  number  ' 
MFEAT  +  ' ,  try  again  '  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 

SET  COLOR  'TO  /VI,  /W 
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101  @  24,0  SAY  MESSAGE 

102  LOOP 

103  ELSE 

104  EXIT 

105  END  IF  EXDF(  )  =  .T. 

106  ENDIF  (MFEAT  =  ' 00  '  .OR.  MFEAT  =  ’ 99  ') 

107  ENDIF 

108  ENDDO  WHILE  .T. 

109  * 

110  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  *; 

1 1 1  SPACE ( 1 6 )  TO  MESSAGE 

112  STORE  1  TO  INTRO 

113  DO  WHILE  .T. 

114  * 

115  *  INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

116  * 

117  IF  INTRO  =  1  THEN 

118  STORE  0  TO  INTRO 

119  ??  FLASH  +  "W.DESPPUPD/" 

120  SET  CONSOLE  OFF 

121  WAIT  TO  ANS 

122  SET  CONSOLE  ON 

1 23  ENDIF 

124  * 

125  *  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.  THE  M  PREFIX 

126  *  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

127  *  CORRESPONDING  DATABASE  FIELDS. 

128  * 

1  29  STORE  FEATURENO  TO  MFEAT 

1 30  STORE  CLIN  TO  MCLIN 

131  STORE  DESCIPT  TO  MDESCRIP 

1 32  STORE  MODELNO  TO  MMODELNO 

1 33  STORE  FDCMODEL  TO  MFDCMODL 

1  34  STORE  TYPECOMPON  TO  MICOMP 

135  STORE  BASEMAINT  TO  MBMAINT 

136  SET  COLOR  TO  R  +  /B,  R+/B 

137  (?  4,46  SAY  RECNO(  )  PICT  "99999" 

138  SET  COLOR  TO  /W,  /W 

139  (a  24,0  SAY  MESSAGE 

140  * 

141  SET  COLOR  TO  /BR,  /BR 

142  'a  6,45  SAY  MFEAT  PICT  "999999" 

143  (d  8,45  GEr  MCLIN  PICT  "9999" 

144  <310,45  GET  MDESCRIP  PICT  "! !!!!!!!!!!!!!!!!!!!!!!!!!!!!! " 

145  (a  12,45  GET  MMODELNO  PICT  "•!•!!  I  *  I  1  ! " 

146  <a  14,45  GET  MFDCMODL  PICT  "!!!!!!!!  i  !!!!!  !" 

147  <a  16,45  GET  MTCOMP  PICT  "j" 

148  fl  18,45  GEr  MBMAINT  PICT  "9999.99" 

1 49  READ 

150  * 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80 ) 


*  ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES,  ONLY  IF  ANY 

*  CHANGES  WERE  MADE 

* 


IF  .NOT.  ( FEATURENO=MFEAT  .AND.  CLIN=MCLIN  .AND.  DESCIPT=MDESCRIP  .AND. 

MODELNO=MMODELNO  .AND.  FDCMODEL=MFDCMODL  .AND.  TYPECOMPON  =; 
NTTCOMP  .AND.  BASEMAINT=MBMAINT)  THEN 
SET  COLOR  TO  W+/  ,  W+/ 

@  21 ,10  SAY  SPACE  (55) 

@  21,12  SAY  "Do  you  want  to  accept  the  changes?  (Yes  or  No):" 

SET  COLOR  TO  R+/  ,  R+/ 

@  21,49  SAY  "Y" 

@  21,56  SAY  "N" 

STORE  "N"  TO  ACCEPr 
@  21,62  GET  ACCEPT  PICT  "l" 

READ 

♦ 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .NOT.  (ACCEPI  =  "N"  .OR.  ACCEP1'  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPr  =  "Y")  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
END  IF 

SET  COLOR  TO  R+/  ,R+/ 

@  21,62  GET  ACCEPT  PICT  "!" 

READ 

ENDDO 

SEI'  COLOR  TO  W+/B,  W+/B 
a  21,10  SAY  SPACE  (60) 

* 

*  STORING  THE  CORRECTED  EDIT  FIELDS  FROM  HIE  WORK  AREA. 


IF  ACCEPT  =  "Y"  THEN 
REPLACE  FEATURENO 
REPLACE  CLIN 
REPLACE  DESCIPT 
REPLACE  MODELNO 
REPLACE  FDCMODEL 


WITH  MFEAT 
WITH  MCL1N 
WITH  MDESCRIP 
Win  I  MMODELNO 
WITH  MFDCMODL 


REPLACE  TYPED )MIX)tl  WliH  M1COMP 


replace  basemaint  wrni  mbmaint 


ENDIF 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 
210 
741 

242 

243 

244 

245 

246 

247 

248 

249 

250 


ENDIF 

* 

SET  COLOR  TO  W/B,  W/B 
@  21 ,10  SAY  SPACE  (55) 

* 

*  ASK  THE  USER  IF  HE/SHE  DESIRES  TO  CHANGE  THE  NOTES  FIELD 

* 

SET  COLOR  TO  W+/B,  W+/B 

@  20,18  SAY  "Edit  the  NOTES  field?  (Yes  or  No):" 

SET  COLOR  TO  R+/B,  R+/B 
<a  20,42  SAY  "Y" 

<a  20,49  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@  20,54  GET  ACCEPT  PICT  "!" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .NOT.  (ACCEPr  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPr  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 
SET  OOIOR  TO  W/B,  W/B 
(3  24,0  SAY  SPACE (80 ) 

SEr  COLOR  TO  W+/R ,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  20,54  GEr  ACCEPr  PICT  "l" 

READ 

ENDDO 

+ 

IF  ACCEPr  =  "Y"  THEN 

??  FLASH  +  "W. NOTES/" 

SEr  CONSOLE  OFF 

WAIT  TO  ANS 

SEr  CONSOLE  ON 

CHANGE  FIELDS  NOTES 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

??  FLASH  +  "S.DESGRrPI'.SCR/" 
a  24,0  SAY  SPACE (80) 

SEr  COLOR  TO  W+/B,  Wf/B 
@  2,39  SAY  "UPDATE" 

SIT  COLOR  TO  R+/B,  R+/B 

id  4,46  SAY  REGNO (  )  PUT  "99999" 

SET  OOIOR  TO  /BR,  /BR 

f'l  6,45  SAY  MFKAT  PICT  "999999" 
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@8,45  SAY  MCLIN  PICT  "9999" 

@  10,45  SAY  MDESCRIP  PICT  "!!!!!! 
@  12,45  SAY  MMODELNO  PICT  "!!!!!! 
@  14,45  SAY  MFDCMODL  PICT  "!!!!!! 
@  16,45  SAY  MIOOMP  PICT 
@  18,45  SAY  MBMAINT  PICT  "9999.99 
ENDIF 


i  i  m  i  m  i  i  i  m  i  m  m  i  i  i  i ' 


SETT  COLOR  TO  W/B,  W/B 
@  20,18  SAY  SPACE  (50) 

SETT  COLOR  TO  R+/B,  R+/B 
STORE  "N"  TO  aiOICE 
@  22,67  GE7T  CHOICE  PICT 
READ 

* 

*  ENSURE  'FHAT  THE  USER'S  PROMPT  IS  EITHER  "N" ,  "p"  OR  "XM 

* 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  aiOICE  =  "P"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (aiOICE  =  "N"  .OR.  QIOICE  =  "p"  .OR.  OIOICE  =  "X" )  THEN 
SETT  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80 ) 

SCT  COLOR  TO  W+/R ,  W+/R 

@  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  QIOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  22,67  GET  aiOICE  PICT 
READ 
ENDDO 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  "N"  THEN 

IF  RECNO  ( )  =  LAST_REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF 

* 

*  SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 


IF  CHOICE  =  "P"  THEN 

IF  RECNO ( )  =  FIRST J3EC  THEN 
GO  BOTTOM 

ELSE 

SKIP  -1 
ENDIF 
ENDIF 
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301  * 

302  *  HAS  DECIDED  TO  EXIT  THE  REVIEW 

303  * 

304  IF  CHOICE  =  "x" 

305  EXIT 

306  END IF 

307  ENDDO  WHILE  .T. 

308  * 

309  *  RETURN  TO  CALLING  PROGRAM. 

310  * 

311  RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,  ERROR,  INTRO 

312  CLOSE  DATABASES 

313  RETURN 

314  ********** ******************■*******%************************+ 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  EQPDTNPC . PRG 

* 


*  AUTHORS 

* 

* 

* 

♦ 

*  PURPOSE 

* 

* 

*  INPUT  FILES 

* 

* 

*  OUTPUT  FILES 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  DELIVERY 
ORDER  DATE  LEVEL  REPORT  WITHOUT  UNIT  COSTS. 

EQUIP. DBF,  EQUIPSD.NDX ,  DESCRIP. DBF,  DESCRIP. NDX, 
EQUIPSIT.NDX 

TEMPONE . DBF ,  TEMPONE . NDX 


*  MODULES  CALLED  :  DELAY. PRG 

* 


*  GLOBAL  VARIABLE:  HIDATE,  HIS1TE,  LODATE,  LOSITE 

* 


*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  QOLCNT,  ERROR,  LINECT,  MKEY, 

*  MNEWDATE ,  MOLDATE,  MSITE,  PAGENO,  SYSDATE , 

*  TODAY,  TODATE 

* 

*  DATE  LAST  TIME  MODIFIED  —=======  =  >  27  DECEMBER  1985  <======= 

* 


*  CASE  SELECTION  =  1  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  REPORT 

*  WITHOUT  UNIT  COST 

* 


*  CALL  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER.  DISPLAY  ALL 

*  EFFECTIVE  DATES  OF  DELIVERY  ORDERS  FOR  THE  USER  TO  SELECT  FROM. 

*  CALL  EQUIPMENT  DATABASE  INDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DATE 

*  AND  SITE  NUMBER.  COPY  APPLICABLE  RECORDS  TO  TEMPONE ,  INDEXED  ON 

*  FEATURE  NUMBER.  RELATE  TO  DESCRIPTION  FILE. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 
USE  EQUIP 
GO  'TOP 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

'a  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPTY!  " 

DO  DELAY 
RETURN 
END  IF 

??  FLASH  +  "S. REPORTS. SCR/" 
a  24,0  SAY  SPACE ( 80 ) 

SET  OOI OR  IT)  16/  ,  Rf/ 

rt  2,25  SAY  "  DELIVERY  ORDER  LEVEL  RETORT  " 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SET  COLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

* 

*  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST,  IF  SO  ERASE  THEM 

* 

SET  CONSOLE  OFF 
ERASE  TEMPONE.DBF 
ERASE  TEMPONE . NDX 
SET  CONSOLE  ON 
USE  EQUIP  INDEX  EQUIPSIT 
* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  'TO  MSITE 
@  13,66  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  + ■ LOSITE  + ; 

'  and  '  +  HISITE  +  ’  ’  TO  ERROR 
&  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  EDF( )  =  .T.  THEN 

STORE  "  No  equipment  exists  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  COLOR  TO  W+/R,  W+/R 
@  24,15  SAY  MESSAGE 
DO  DELAY 
LOOP 

ELSE 

EXIT 

END1F  EOF( )  =  -T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDDO  WHILE  .T. 

* 

SET  COLOR  'TO  W+/BR,  W+/BR 
a  13,15  SAY  SPACE ( 60 ) 

+ 

SET  COLOR  TO  W+/B,  W+/B 

a  05,09  SAY  "The  following  Delivery  Order  Effective  Dates  exist  tor  Site" 

0  05,69  SAY  MSITE 
SET  COLOR  'TO  /BR,  /BR 
<3  13,05  SAY  SPACE ( 70 ) 

STORE  1  'TO  LINECT 
STORE  1 .00  ID  COLCNT 
STORE  "000000"  TO  MOLDATE 
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-  r* 


nr»  jr*  jr» i 


'J*  rvp  - jf  -v  if  "V  n. 
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101  * 

102  DO  WHILE  SITENO  =  MSITE 

103  IF  (COLCNT  -  (OOLCNT  *  (COLCNT/3))  =  0.00)  THEN 

104  0LINECT+6 , 57  SAY  EFFDATE 

105  ELSE 

106  IF  (OOLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

107  @LINECT+6 , 38  SAY  EFFDATE 

108  ELSE 

109  @LINECT+6 , 1 9  SAY  EFFDATE 

110  ENDIF  (OOLCNT  -  (OOLCNT  *  (COLCNT/2))  =  0.00) 

111  ENDIF  (OOLCNT  -  (OOLCNT  *  (COLCNT/3))  =  0.00) 

112  IF  (OOLCNT  -  (OOLCNT  *  (OOLCNT/ 3))  =  0.00)  THEN 

113  LINECT  =  1  +  LINECr 

114  OOLCNT  =1.00 

1 1 5  ELSE 

1 1 6  COLCNT  =  OOLCNT  +1.00 

117  ENDIF  (OOLCNT  -  (OOLCNT  *  (OOLCNT/3))  =  0.00) 

118  STORE  EFFDATE  ID  MOLDATE 

119  * 

120  DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

121  SKIP+2 

1 22  ENDDO 

123  * 

124  IF  EOF( )  THEN 

1 25  EXIT 

126  ELSE 

1 27  SKIP 

128  ENDIF  EOFO  =  .T. 

129  ENDDO  WHILE  SITENO'  =  MSITE 

130  * 

131  STORE  DTOC ( DATE ( ) )  TO  SYSDATE 

132  STORE  SUBSTR( SYSDATE, 7, 2)  +  SUBSTR ( SYSDATE ,1,2)  +  ; 

1  3  3  SUBS1R ( SYSDATE ,4,2)  TO  MDATE 

134  STORE  SPACE(17)  +  'input  Effective  Date  (Range  '  +  LODA'i'E  t; 

135  '  to  '  +  HIDA'IE  +  *  )  *  +  SPACE (17)  'TO  MESSAGE 

136  SCI'  COLOR  TO  /W,  /W 

137  (§  24,0  SAY  MESSAGE 

138  SET  COLOR  TO  W+/B,  W+/B 

139  ■a  3,29  SAY  "EFFECTIVE  DA’IE :  " 

1 40  * 

141  USE  EQUIP  INDEX  EQUIPSD.NDX 

142  STORE  "000000"  TO  MOLDATE 

143  * 

144  DO  WHILE  .NO  r.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  '.=  III  DATE) 

145  STORE  MDA1E  TO  MOLDATE 

146  SET  COLOR  TO  R+/B,  R+/B 

147  (a  3,45  GET  MOLDATE  PICT  "999999" 

1 48  READ 

149  DO  WHILE  .T. 

>30  IF  .NOT.  (SUBSIR (MOLDATE, 1 ,2)  >  "83"  .AND.: 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


SUBSTR ( MOLDATE , 1  ,2)  <  =  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99  " 
DO  DELAY 

SET  COLOR  TO  /W,  /W 

@24,0  SAY  MESSAGE 

STORE  SUBSTR ( MDATE ,1,2)  TO  MYEAR 

SEr  COLOR  TO  R+/B,  R+/B 

@3,45  GET  MYEAR  PICT  "99" 

READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 

ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  .NOT.  (SUBSTR (MOLDATE, 3, 2)  >=  "01"  .AND.; 

SUBSTR (MOLDATE, 3, 2)  <=  "12")  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 
DO  DELAY 

SET  COLOR  TO  /W,  /W 

@24,0  SAY  MESSAGE 

STORE  SUBSTR (MDATE, 3, 2)  TO  MMONTH 

SET  COLOR  TO  R+/B,  R+/B 

@3,47  GET  MMONTH  PICT  "99" 

READ 

STORE  SUBSIR ( MOLDATE, 1 ,2)  f  MMONTH  +  ; 

SUBSTR ( MOLDATE ,5,2)  TO  MOLDATE 

ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

UO  WHILE  .T. 

IF  ( (SUBSTR! MOLDATE, 3,2)  =  "04"  .OR.  SUBSTR ( MOLDATE ,3,2)  =  "06"  .OR.; 
SUBSTR ( MOLDATE ,3,2)  =  "09"  .OR.  SUBSIR ( MOLDATE ,3,2)  =  "11")  . AND . ; 
.NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

SUBSTR ( MOLDATE ,5,2)  <=  "30"))  THEN 
SET  COLOR  TO  W/B,  W/B 
'a  24,0  SAY  SPACE  ( 80  ) 

SET  COLOR  TO  W+/R,  Wt/R 

ia  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  10  " 

DO  DELAY 

SEI’  COLOR  TO  /W,  /W 
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201  @  24,0  SAY  MESSAGE 

202  STORE  SUBSTR ( MDATE ,5,2)  TO  MDAY 

203  SET  COLOR  TO  R+/B,  R+B 

204  @3,49  GET  MDAY  PICT  "99" 

205  READ 

206  STORE  SUBSTR ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 

207  LOOP 

208  ELSE 

209  * 

210  IF  (SUBSTR (MOLDATE, 3, 2)  =  "02"  .AND.  .NOT.;  ■ 

211  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

212  SUBSTR ( MOLDATE ,5,2)  <=  "28"))  THEN 

213  SET  OOLOR  TO  W/B,  W/B 

214  @24,0  SAY  SPACE(80) 

215  SET  OOLOR  TO  W+/R,  W+/R 

216  @24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  " 

217  DO  DELAY 

218  SET  COLOR  TO  /W,  /W 

219  @24,0  SAY  MESSAGE 

220  STORE  SUBSTR (MDATE, 5, 2)  TO  MDAY 

221  SET  COLOR  TO  R+/B,  R+B 

222  @3,49  GET  MDAY  PICT  "99" 

223  READ 

224  STORE  SUBSTR ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 

225  LOOP 

226  ELSE 

227  * 

228  IF  .NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

229  SUBSTR ( MOLDATE ,5,2)  <=  "31")  THEN 

230  SET  OOLOR  TO  W/B,  W/B 

231  @24,0  SAY  SPACE ( 80 ) 

232  SEr  COLOR  TO  W+/R,  W+/R 

233  @  24,16  SAY  "  Day  ;xjrti<jn  ■  >t  Unto  musi  I*1  lietween  01  and  II  " 

234  DO  DELAY 

235  SET  OOLOR  TO  /W,  /W 

236  0  24,0  SAY  MESSAGE 

237  STORE  SUBSTR  ( MDATE , 5 , 2 )  'TO  MDAY 

238  SET  OOLOR  TO  R+/B,  R+B  ' 

239  @  3,49  GET  MDAY  PICT  "no" 

240  READ 

241  STORE  SUBSTR ( MOLDATE ,1,4)  ♦  MDAY  P'MDl.lVdE 

242  IOOP 

243  ELSE 

244  EXIT 

245  END IF 

246  END IF 

247  END IF 

248  ENDLX )  WHILE  .T. 

249  ♦ 

250  CO  'TOP 
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251  FIND  &MOLDATE 

252  IF  EOF( )  =  .T.  THEN 

253  SET  COLOR  TO  W/B,  W/B 

254  @24,0  SAY  SPACE(80) 

255  STORE  "  EFFECTIVE  DATE  "  +  MOLDATE  +  "  does  not  exist  for  site  "  +; 

256  MSITE  +  ",  try  another  "  TO  NODATE 

257  SETT  COLOR  TO  W+/R,  W+/R 

258  @  24,06  SAY  NODATE 

259  DO  DELAY 

260  SET  COLOR  TO  /W,  /W 

261  @24,0  SAY  MESSAGE 

262  STORE  "000000"  TO  MOLDATE 

263  LOOP 

264  END IF  DOF( )  =  .T. 

265  ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HI DATE) 

266  * 

267  SET  (DOLOR  TO  W+/B,  W+/B 

268  @  05,05  SAY  SPACE(70) 

269  @24,0  SAY  SPACE (80) 

270  * 

271  *  CLEAR  LISTING  OF  EFFECTIVE  DATES  FROM  SCREEN 

272  * 

273  SET  OOLOR  TO  /BR,  /BR 

274  @07,2  SAY  SPACE (76) 

275  @08,2  SAY  SPACE(76) 

276  @09,2  SAY  SPACE (76) 

277  @10,2  SAY  SPACE(76) 

278  @11,2  SAY  SPACE ( 76 ) 

279  @12,2  SAY  SPACE(76) 

280  @13,2  SAY  SPACE(76) 

281  @14,2  SAY  SPACE( 76 ) 

282  @15,2  SAY  SPACE(76) 

283  @  16,2  SAY  SPACE(76) 

284  @17,2  SAY  SPACE(76) 

285  @18,2  SAY  SPACE(76) 

286  @19,2  SAY  SPACE(76) 

287  @20,2  SAY  SPACE) 76) 

288  0  21,2  SAY  SPACE) 76) 

289  * 

290  SET  COLOR  TO  R+/  ,  R+/ 

291  @13,18  SAY  "  CREATING  TEMPORARY  DATABASE  AND  INDEX  FILE  " 

292  STORE  "MOLDATE"  +  "MSITE"  TO  MKEY 

293  GO  TOP 

294  FIND  &MKEY 

295  * 

296  COPY  TO  'IEMPONE  FOR  SITKNO  =  "&MSF1E"  .AND.  EFFDATE  =  "XMOLUATE" 

297  SELECT  1 

298  USE  ’IEMPONE 

299  INDEX  ON  FEATURENO  TO  IEMPONE 

300  SELECT  2 
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301  USE  DESCRIP  INDEX  DESCRIP 

302  SELECT  TEMPONE 

303  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

304  GO  TOP 

305  * 

306  *  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

307  *  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

308  * 

309  SET  COLOR  TO  W+/BR,  W+/BR 

310  @13,15  SAY  SPACE ( 60 ) 

311  @  13,16  SAY  "  Do  you  want  a  printcxi  report?  (Yes  or  No):  " 

312  SET  COLOR  TO  /BR,  /BR 

313  @  13,49  SAY  "Y" 

314  @  13,56  SAY  "N" 

315  STORE  "N"  TO  ACCEPT 

316  @13,62  GET  ACCEPT  PICT  "l" 

317  READ 

318  * 

319  *  ENSURE  'THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

320  * 

321  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "y") 

322  IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 

323  SET  COLOR  TO  W+/R,  W+/R 

324  @  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

325  DO  DELAY 

326  STORE  "N"  TO  ACCEPT 

327  ENDIF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

328  SET  COLOR  TO  /BR,  /BR 

329  @  13,62  GET  ACCEPT  PICT  "i" 

330  READ 

331  ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

332  * 

333  SET  COLOR  TO  /BR,  /BR 

334  @  13,15  SAY  SPACE (55) 

335  * 

336  IF  ACCEPT  =  "Y"  THEN 

337  ??  FLASH  +  "W. PRINTER/" 

338  SET  CONSOLE  OFF 

339  WAIT  TO  CHOICE 

340  SET  CONSOLE  ON 

341  SET  OOLOR  TO  W/B,  W/B 

342  @22,10  SAY  SPACE(65) 

343  STORE  DTOC(DATE())  TO  TODAY 

344  STORE  SUBSTR  ( TODAY  ,4,2)  +  "  "  +  CMON'II I ( DA'IE (  )  )  f  "  19"  .  ; 

345  SUBSTR  ( TODAY ,  7 , 2  )’  'IO  TOUATE 

346  SPIRE  0  TO  PAGENO 

347  STORE  61  TO  LINECT 

348  SET  CT1IOR  TO  1U/  ,  Rt/ 

349  SET  DEVICE  TO  PRINT 

350  + 


■ 

i 


i 

i 


i 

i 

! 


I 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 
38  3 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 
a  LINECT, 3  SAY  SITENO  PICT  "99" 
a  LINECT, 9  SAY  B->CLIN  PICT  "9999" 

!?  LINECT,  17  SAY  FEATURENO  PICT  "999999" 

(3  LINECT, 28  SAY  B->DESCIPT  PICT  "!!!!!! I !! M  M  !!!!!!!!!!!!! 1 
a  LINECT, 60  SAY  OTY  PICT  "999" 
a  LINECT, 67  SAY  B- > FDCMODEL  PICT  "ill!!!!:!!" 

LINECT  =  LINECT  +  1 
SKIP 

ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 


IF  EOF ( )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

ENDIF  PAGENO  >  1 
EJECT 

SETT  DEVICE  ID  SCREEN 

a  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  'ID  SCREEN 

a  13,27  SAY  "  Printing  Page  Number  "  +  STR(PAGENO  +  1,2,0)  t 
SET  DEVICE  TO  PRINT 
ENDIF  EOF( )  =  .T. 


IF  (LINECT  >  60  .AND.  PAGENO  >  1)  THEN 
a  62,37  SAY  "Page  "  +  SIR ( PAGENO , 2 , 0 ) 

ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1) 
a  2,25  SAY  "  DEI.,  I  VERY  ORDER  IJ3VEL  REPORT  " 

d  3,29  SAY  "EFFECTIVE  DATE:  " 

a  3,45  SAY  MDLDA'I’E 

a  4,60  SAY  TODATE 

a  6,2  SAY  "SHE  CLIN  FEAIURE//  DESCRIPTION" 

(d  6,60  SAY  "C/TY  MODEL  NUMBER" 

a  7,2  SAY  "=====3====^====^========^^================-==== 

a  7,51  SAY  "  =  =  =  ===..  =  ===  =  =  =:  =  ============" 

PAGENO  =  PAGENO  f  I 
SIDRE  9  'TO  LINECT 


ENDDO  WI1IIE  .NOT.  EOF(  ) 

ELSE 

SET  COLOR  'TO  GR  +  /B,  GIO/B 

a  5,2  SAY  "SHE  CLIN  FEATURE#  DESCRIPTION" 

a  5,60  SAY  "yTY  MODEL  NUMBER" 

SET  COLOR  TO  / BR ,  /BR 
SIDRE  0  ID  LINECT 


DO  WHILE  .NOT.  EOF( ) 
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401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419  * 

420 

421 

422 

423 

424 

425 

426 

427  * 

428  * 

429  * 

430 

431 

432 

433 

434 

435 

436 

437 
4  38 
4  39 

440 

441  * 

442  * 

443  * 

444 

445 

446 

447 

448 

449 

450 


DO  WHILE  LINECT  <  15 

@  LINECT+7 , 3  SAY  SITENO  PICT  “99" 

@  LINECT+7 ,9  SAY  B->CLIN  PICT  "9999" 

@  LINECT+7 , 1 7  SAY  FEATURENO  PICT  ”999999" 

0  LINECT+7, 28  SAY  B->DESCIPT  PICT  "!!!!!!!!  i  !!!!!!!!!!  I  !  !  !!!!  " 
@  LINECT+7, 60  SAY  (JVY  PICT  "999" 

@  LINECT+7 , 67  SAY  B- > FDCMODEL  PICT  "!!!!!!!!!!" 

LINECT  =  LINECT  +  1 
SKIP 

IF  BOF(  )  =  .T.  THEN 

SETT  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File  reached.  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 

END IF  EOF()  =  .T. 

ENDDO  WHILE  LINECT  <  15 

IF  EOF( )  =  .T.  THEN 
EXIT 

ENDIF  D0F( )  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
@  22,57  GET  QIOICE  PICT  "!" 

READ 

ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NUT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

a  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  QIOICE 

ENDIF  .NUT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" ) 

SET  COLOR  TO  R+/B,  R+/B 
a  22,57  GET  QIOICE  PICT  "l" 

READ 

ENDDO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

DETERMINE  IF  'HIE  USER  WANTS  TO  ijUJT  OR  CONTINUE 

IF  QIOICE  =  "C" 

SET  COLOR  'TO  /BR,  /BR 
a  07,2  SAY  SPACE ( 76 ) 
a  08,2  SAY  SPACE! 76) 
a  09,2  SAY  SPACE (76) 
a  10,2  SAY  SPACE (76) 
a  11,2  SAY  SPACE! 76) 
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451  @12,2  SAY  SPACE( 76 ) 

452  @13,2  SAY  SPACE(76) 

453  @14,2  SAY  SPACE{76) 

454  @15,2  SAY  SPACE(76) 

455  @16,2  SAY  SPACE(76) 

456  @17,2  SAY  SPACE(76) 

457  @18,2  SAY  SPACE(76) 

458  @  19,2  SAY  SPACE(76) 

459  @20,2  SAY  SPACE(76) 

460  (d  21,2  SAY  SPACE(76) 

461  STORE  0  TO  LINECT 

462  ELSE 

463  EXIT 

464  ENDIF  CHOICE  =  "C" 

465  * 

466  ENDUO  WHILE  .NOT.  EOF( ) 

467  * 

468  ENDIF  ACCEPr  =  "Y" 

469  * 

470  *  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

471  * 

472  CLOSE  DATABASES 

473  SET  CONSOLE  OFF 

474  ERASE  TEMPONE . DBF 

475  ERASE  TEMPONE. NDX 

476  SET  CONSOLE  ON 

477  SEr  PRINT  OFF 

478  * 

479  *  REIURN  TO  CALLING  PROGRAM 

480  * 

481  RELEASE  ALL  LIKE  M*,  ACCEPr,  CHOICE,  COLCNT,  ERROR,  LINECT,  PAGENO, ; 

482  SYSDA1E,  TODAY,  TODATE 

483  RETURN 


APPENDIX  B 


MAINTENANCE  MANUAL  Page  140 


Page  1  EQPDCPRC.PRG  Program  Listing 


1  *  PROCEDURE  EQPOTPRC.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  DELIVERY 

9  *  ORDER  DATE  LEVEL  REPORT  WITH  UNIT  COSTS. 

10  * 

11  *  INPUT  FILES  :  EQUIP. DBF,  EQUIPSD.NDX,  DESCRIP. DBF,  DESCRIP. NDX, 

12  *  EQUIPS IT. NDX 

13  * 

14  *  OUTPUT  FILES  :  TEMPONE . DBF ,  TEMPONE . NDX 

15  * 

16  *  MODULES  CALLED  :  DELAY. PRG 

17  * 

18  *  GLOBAL  VARIABLE:  HI DATE,  HISITE,  LODATE,  LOS1TE 

19  * 

20  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  COLCNT,  ERROR,  LINECF,  MKEY ,  MNEWDATE, 

21  *  MOLDATE ,  MSITE,  PAGENO,  SYSDATE,  TODAY,  TODATE 

22  * 

23  *  DATE  LAST  TIME  MODIFIED  ==*=======>  27  DECEMBER  1985  <========== 

24  * 

25  *  CASE  SELECTION  =  1  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  REPORT 

26  *  WITH  UNIT  COST 

27  * 

28  *  CALL  EQUIPMENT  DATABASE  INDEXED  ON  SHE  NUMBER.  DISPLAY  ALL 

29  *  EFFECTIVE  DATES  OF  DELIVERY  ORDERS  FOR"  THE  USER  TO  SELECT'  FROM. 

30  *  CALL  EQUIPMENT  DATABASE  INDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DATE 

31  *  AND  SITE  NUMBER.  COPY  APPLICABLE  RECORDS  TO  TEMPONE,  INDEXED  ON 

32  *  FEATURE  NUMBER.  RELATE  TO  DESCRIPTION  FILE. 

33  * 

34  SET  ESCAPE  OFF 

35  SET  TALK  OFF 

36  SET  COLOR  TO  W  +  /B,  W+/B,  B 

37  CLEAR 

38  USE  EQUIP 

39  GO  TOP 

40  IF  EOF( )  =  .T.  THEN 

41  SET  OOI OR  TO  Wi/R,  W+/R 

42  M  13,24  SAY  "  The  EQUIPMENT  Database  is  EMI 'IT !  " 

43  DO  DELAY 

44  RETURN 

45  END IF 

46  ??  FLASH  +  "S. REPORTS. SCR/" 

47  fa  24,0  SAY  SPACE(80) 

48  SET  (T)IOR  TO  Rt/  ,  R./ 

49  :<!  2,25  SAY  "  DELIVERY  ORDER  LEVEL  RETORT  " 

50  SET  OOl OR  TO  W»/HR,  Wi/P.R 
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51  @  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

52  * 

53  *  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST,  IF  SO  ERASE  THEM 

54  * 

55  SET  CONSOLE  OFF 

56  ERASE  TEMPONE.DBF 

57  ERASE  TEMPONE.NDX 

58  SET  CONSOLE  ON 

59  USE  EQUIP  INDEX  EQUIPS IT 

60  * 

61  DO  WHILE  .T. 

62  SET  COLOR  TO  /BR,  /BR 

63  STORE  LOSITE  TO  MSITE 

64  @  13,66  GET  MSITE  PICT  '99' 

65  READ 

66  IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

67  SET  COLOR  TO  W+/R,  W+/R 

68  STORE  '  Response  must  be  between  '  +  LOSITE  + ; 

69  '  and  '  +  HISITE  +  '  ’  TO  ERROR 

70  @  24,22  SAY  ERROR 

71  DO  DELAY 

72  LOOP 

73  ELSE 

74  GO  TOP 

75  FIND  & MSITE 

76  IF  EOF( )  =  .T.  THEN 

77  STORE  "  No  equipment  exists  for  site  "  +  MSIIE  +; 

78  ",  try  another  site  "  TO  MESSAGE 

79  SEr  COLOR  TO  W+/R,  W+/R 

80  @24,15  SAY  MESSAGE 

8 1  DO  DELAY 

82  LOOP 

83  ELSE 

84  EXIT 

85  ENDIF  DOF( )  =  .T. 

86  ENDIF  .NOT.  (MSI'IE  >=  LOSITE  .AND.  MSI'IE  <=  HISITE) 

87  ENDDO  WHILE  .T. 

88  * 

89  SET  COLOR  TO  W+/BR,  W+/BR 

90  @13,15  SAY  SPACE (60) 

91  * 

92  SET  COLOR  TO  W+/B,  W+/B 

93  A  05,09  SAY  "The  following  Delivery  Order  Effective  Oates  exist,  for  Site" 

94  <a  05,69  SAY  MSIIE 

95  SOT  COLOR  TO  /BR,  /BR 

96  @13,05  SAY  SPACE(70) 

97  STORE  1  TO  LlNECl’ 

98  STORE  1.00  TO  OOLCNT 

99  STORE  "000000"  TO  MOLDATE 
100  * 
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101  DO  WHILE  SITENO  =  MSITE 

102  IF  (OOLCNT  -  (OOLCNT  *  (COLCNT/3))  =  0.00)  THEN 

103  @LINECT+6, 57  SAY  EFFDATE 

104  ELSE 

105  IF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

106  @LINECT+6 , 38  SAY  EFFDATE 

107  ELSE 

108  @LTNECT+6,19  SAY  EFFDATE 

103  ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00) 

110  ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00) 

111  IF  (COLCNT  -  (COLCNT  *  (OOLCNT/3))  =  0.00)  THEN 

112  LINECT  =  1  +  LINECT 

113  COLCNT  =  1 .00 

114  ELSE 

115  COLCNT  =  OOLCNT  +  1.00 

116  ENDIF  (OOLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00) 

1 1 7  STORE  EFFDATE  TO  MOLDATE 

118  * 

119  DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

120  SKIP+2 

1 21  ENDDO 

122  * 

123  IF  E0F( )  THEN 

1 24  EXIT 

125  ELSE 

126  SKIP 

127  ENDIF  EOF( )  =  .T. 

128  ENDDO  WHILE  SITENO  =  MSITE 

129  * 

130  STORE  DTOC ( DATE ( ) )  TO  SYSDATE 

131  STORE  SUBSTR( SYSDATE, 7, 2)  +  SUBSTR ( SYSDATE , 1 , 2 )  +; 

132  SUBSTR (SYSDATE, 4, 2)  TO  MDATE 

133  STORE  SPACE!  17)  *■  'Input  Effective  Date  (Range  '  +  LODATE  +; 

134  '  to  '  v  HIDATE  +')'»■  SPACE(17)  TO  MESSAGE 

135  SET  COLOR  TO  /W,  /W 

136  &  24,0  SAY  MESSAGE 

137  SET  COLOR  TO  W+/B,  W+/B 

138  fl  3,29  SAY  "EFFECTIVE  DATE:  " 

139  * 

140  USE  EQUIP  INDEX  EQU1PSD.NDX 

141  STORE  "000000"  TO  MOLDATE 

142  * 

143  DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

144  STORE  MDATE  TO  MOLDATE 

145  SET  COLOR  TO  R+/B,  R+/B 

146  0  3,45  GET  MOLDATE  PICT  "999999" 

147  READ 

1 48  DO  WHILE  .T. 

149  IF  .NOT.  ( SUBSTR ( MOLDATE, 1 ,2)  >  "83"  .AND. ; 

150  SUBSTR ( MOLDATE ,1,2)  <=  "99")  THEN 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99  " 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  SUBSTR ( MDATE ,1,2)  TO  MYEAR 
SET  COLOR  TO  R+/B,  R+/B 
@3,45  GET  MYEAR  PICT  "99" 

READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 

ELSE 

EXIT 
END  IF 
ENDDO 

DO  WHILE  .T. 

IF  .NOT.  ( SUBSTR ( MOLDATE ,3,2}  >  "00"  .AND.; 

SUBSTR (MOLDATE, 3, 2)  <  "13")  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 
DO  DELAY 

SET  COLOR  TO  /W,  /W 

@24,0  SAY  MESSAGE 

STORE  SUBSTR (MDATE, 3, 2)  TO  MMONTH 

SET  OOLOR  TO  R+/B,  R+/B 

@3,47  GET  MMONTH  PICT  "99" 

READ 

STORE  SUBSIR  ( MOLDATE,  1,2)  +  MMONTH  <■; 

SUBSIR  (MOLDATE, 5, 2)  TO  MOLDATE 

ELSE 

EXIT 

ENDIF 

ENDDO 

DO  WHILE  .T. 

LF  ( (SUBSIR (MOLDATE, 3, 2)  =  "04"  .OR.  SUBSTR ( MOLDATE ,3,2)  =  "06"  .OR.; 
SUBSTR ( MOLDATE ,3,2)  =  "09"  .OR.  SUBSTR ( MOLDAIE ,3,2)  =  "11")  ./MID.; 
.NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01 "  .AND.; 

SUBSTR ( MOLDAIE ,5,2)  <=  "30"))  IREN 
SET  OOLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80) 

SET  OOLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  l*?  between  01  and  30  " 

DO  DELAY 

SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
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STORE  SUBSTO ( MDATE ,5,2)  TO  MDAY 
SETT  COLOR  TO  R+/B,  R+B 
@  3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( N10LDATE ,  1  ,4)  +  MDAY  TO  MOLDATE 
LOOP 


IF  ( SUBSTR ( MOLDATE ,3,2)  =  "02"  .AND.  .NOT.; 

( SUBSTR ( MOLDATE ,5,2)  "01"  .AND.; 

SUBSTR (MOLDATE, 5, 2)  <=  "28"))  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  " 
DO  DELAY 

SET  COLOR  TO  /W;  /W 
@  24,0  SAY  MESSAGE 
STORE  SUBSTR (MDATE, 5, 2)  TO  MDAY 
SET  COLOR  TO  R+/B,  R+B 
@3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 

IF  .NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

SUBSTR (MOLDATE, 5, 2)  <=  "31")  THEN 
SEr  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SEr  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31  " 
DO  DELAY 

SEr  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  SUBSTR (MDATE, 5,2)  TO  MDAY 
SEr  COLOR  TO  R+/B,  R+B 
@  3,49  GEr  MDAY  PICT  "99" 

READ 

STORE  SUBS'IR ( MOLDATE,  1,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 

EXIT 
END  IF 
ENDIF 
END  IF 

ENDDO  WHILE  .T. 


GO  TOP 

FIND  X MOLDATE 
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251  IF  EOF( )  =  .T.  THEN 

252  SET  COLOR  TO  W/B,  W/B 

253  @24,0  SAY  SPACE (80) 

254  STORE  "  EFFECTIVE  DATE  "  +  MOLDATE  +  "  does  not  exist  for  site  "  +; 

255  MSITE  +  ",  try  another  "  TO  NODATE 

256  SET  COLOR  TO  W+/R,  W+/R 

257  @  24,06  SAY  NODATE 

258  DO  DELAY 

259  SET  COLOR  TO  /W,  /W 

260  @24,0  SAY  MESSAGE 

MnoOC\0.r'M  rnn  ihcai  ahtot 
4U  i  OIUIMj  vvvwv  ivy  riuuL/niij 

262  LOOP 

263  ELSE 

264  EXIT 

265  END IF  EOF( )  =  .T. 

266  ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

267  * 

268  SET  COLOR  TO  W+/B,  W+/B 

269  @  05,05  SAY  SPACE(70) 

270  @24,0  SAY  SPACE(80) 

271  * 

272  *  CLEAR  LISTING  OF  EFFECTIVE  DATES  FROM  SCREEN 

273  * 

274  SET  COLOR  TO  /BR,  /BR 

275  @07,2  SAY  SPACE(76) 

276  @08,2  SAY  SPACE (76) 

277  0  09,2  SAY  SPACE (76) 

278  0  10,2  SAY  SPACE(76) 

279  @11,2  SAY  SPACE( 76 ) 

280  0  12,2  SAY  SPACE (76) 

281  0  13,2  SAY  SPACE ( 76 ) 

282  0  14,2  SAY  SPACE(76) 

283  @15,2  SAY  SPACE(76) 

284  0  16,2  SAY  SPACE (76) 

285  0  17,2  SAY  SPACE (76) 

286  0  18,2  SAY  SPACE ( 76 ) 

287  0  19,2  SAY  SPACE (76) 

288  0  20,2  SAY  SPA(E<76) 

289  021,2  SAY  SPACE! 76) 

290  * 

291  SET  COLOR  TO  R+/  ,  R+/ 

292  4  13,18  SAY  "  GREAT  LNG  TEMPORARY  DATABASE  AND  INDEX  FILE  " 

293  STORE  "MOLDATE"  +  "MSITE"  TO  MKEY 

294  GO  TOP 

295  FIND  &MKEY 

296  * 

297  COPY  TO  TEMPONE  FOR  SI TEND  =  "SMSITE"  .AND.  EFFDATE  =  "SMOLDATE" 

298  SELECT  1 

299  USE  TEMPONE 

300  INDEX  ON  FEATURENO  TO  TEMPONE 
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301  SELECT  2 

302  USE  DESCRIP  INDEX  DESCRIP 

303  SELECT  TEMPONE 

304  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

305  GO  TOP 

306  * 

307  *  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

308  *  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

309  * 

310  SET  COLOR  TO  W+/BR,  W+/BR 

311  @  13,15  SAY  SPACE ( 60 ) 

312  @  13,16  SAY  "  Do  you  want  a  printed  report?  (Yes  or  No):  " 

313  SET  COLOR  TO  /BR,  /BR 

314  @  13,49  SAY  "Y" 

315  @  13,56  SAY  "N" 

316  STORE  "N"  TO  ACCEPT 

317  @13,62  GET  ACCEPT  PICT  "i" 

318  READ 

319  * 

320  *  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

321  * 

322  DO  WHILE  .NCI’.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

323  IF  .NOT.  (ACCEPT  =  "N"  -OR.  ACCEPT  =  "Y")  THEN 

324  SET  COLOR  TO  W+/R,  W+/R 

325  @  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

326  DO  DELAY 

327  STORE  "N"  TO  ACCEPT 

328  ENDIF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

329  SET  COLOR  TO  /BR,  /BR 

330  @  13,62  GET  ACCEPT  PICT  "!" 

331  READ 

332  ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

333  * 

334  SET  COLOR  TO  /BR,  /BR 

335  @13,15  SAY  SPACE(55) 

336  * 

337  IF  ACCEPT  =  "Y"  THEN 

338  ??  FLASH  ♦  "W. PRINTER/" 

339  SET  CONSOLE  OFF 

340  WAIT  TO  CHOICE 

341  SET  CONSOLE  ON 

342  SET  COLOR  TO  W/B,  W/B 

343  @22,10  SAY  SPACE(65) 

344  STORE  DTOC( DATED)  TO  TODAY 

345  STORE  SUBSTR ( TODAY ,4,2)  ♦  "  "  +  CMONTI I ( DA'IE (  )  )  +  "  19"  +; 

346  SUBSTR  (TODAY,  7, 2)  TO  ‘IODATE 

347  STORE  0  TO  PAGENO 

348  STORE  61  TO  LINECT 

349  SET  COLOR  TO  R+/  ,  R  +  / 

350  SET  DEVICE  TO  PRINT 


283 


APPENDIX  B:  MAINTENANCE  MANUAL 


Page  1 47 


Page  8 


EQPDTPRC . PRG  Program  Listing 


351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 
37  3 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


* 


DO  WHILE  .NOT.  EOF< ) 

DO  WHILE  ( LINECT  <=  60 
@ 


.AND.  .NOT.  EOF( ) ) 


LINECT, 3  SAY  SITENO  PICT  "99" 

@  LINECT, 9  SAY  B->CLIN  PICT  "9999" 

@  LINECT , 1 7  SAY  FEATURENO  PICT  "999999" 

@  LINECT, 28  SAY  B->DESCIPT  PICT  "!!!!!!!!!!!!!!! 
@  LINECT,60  SAY  OTY  PICT  "999" 

§  LINECT,66  SAY  UNIT_PRICE  PICT  "99999999.99" 

LINECT  =  LINECT  +  1 

SKIP 

KNDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 


I  I  I  1  I  I  1 


IF  EOF( )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

@  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

END IF  PAGENO  >  1 
EJECT 

SET  DEVICE  TO  SCREEN 

@  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  TO  SCREEN 

@  13,27  SAY  "  Printing  Page  Number  "  +  S'1R( PAGENO  +  1,2,0)  + 
SET  DEVICE  TO  PRINT 
ENDIF  0OF()  =  .T. 


IF  (LINECT  >  60  .AND.  PAGENO  >  1 )  THEN 
a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1) 

0  2,25  SAY  "  DEI, (VERY  ORDER  LEVEL  REPORT  " 
a  3,29  SAY  "EFFECTIVE  DATE:  " 

0  3,45  SAY  MOLDATE 

a  4,60  SAY  TODATE 

@6,2  SAY  "SITE  CLIN-  FEATURE#  DESCRIPTION" 

(3  6,60  SAY  "OTY  UNIT  PRICE  " 

a  7,2  SAY  "======================^===================r=== 

<3  7,51  SAY  "============================" 

PAGENO  =  PAGENO  +  1 
STORE  9  TO  LINECT 


ENDDO  WHILE  .NOT.  EOF( ) 

ELSE 

SET  COLOR  TO  GRt/B,  GR+/B 

a  5,2  SAY  "SHE  Q, IN  FEATURE#  DESCRIPTION" 

0  5,60  SAY  "OTY  UNIT  PRICE  " 

SET  OOrOR  70  /BR,  /HR 
S70RE  0  70  LINECT 
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401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 

420  * 

421 

422 

423 

424  - 

425 

426 

427 

428  * 

429  * 

430  * 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442  * 

443  * 

444  * 

445 

446 

447 

448 

449 

450 


DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  LINECT  <  15 
@  LINECT+7 , 3  SAY 
@  LINECT+7 , 9  SAY 
@  LINECT+7 , 1  7  SAY 
@  LINECT+7 , 28  SAY 
@  LINECT+7, 60  SAY 
@  LINECT+7 , 66  SAY 


LINECT  =  LINECT  + 

SKIP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 

ENDIF  DOF< )  =  .T. 

ENDDO  WHILE  LINECT  <  15 


SITENO  PICT  "99" 

B- >CLIN  PICT  "9999" 

FEATURENO  PICT  "999999" 

B- >DESCIPT  PICT  "!!!!!!!!!!!!!!!!!!!! I ! ! I ! 
QTY  PICT  "999" 

UNIT_PRICE  PICT  "99999999.99" 

1 


reached,  Press  any  key  to  EXIT 


IF  EOF(  )  =  .T.  THEN 
EXIT 

ENDIF  EOF( )  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 

STORE  "C"  TO  aiOICE 
22,57  GET  QIOICE  PICT 

READ 

ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "x") 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  eitlier  C  or  X  " 
DO  DELAY 

STORE  "C"  30  QIOICE 

ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  QIOICE  =  "X") 

SET  COLOR  TO  R+/B,  R+/B 
(a  22,57  GET  QIOICE  PICT  "l" 

READ 

ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  QIOICE  =  "x") 

DETERMINE  IF  TOE  USER  WANTS  TO  guiT  OR  CONTINUE 

IF  QIOICE  =  "C" 

SET  COLOR  TO  /BR,  /BR 
ca  07,2  SAY  SPACE (76) 

'd  08,2  SAY  SPACE (76) 

Id  09,2  SAY  SPACE (76) 

3  10,2  SAY  SPACE (76) 
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451  0  11,2  SAY  SPACE ( 76 ) 

452  @12,2  SAY  SPACE(76) 

453  @13,2  SAY  SPACE(76) 

454  @14,2  SAY  SPACE(76) 

455  @15,2  SAY  SPACE(76) 

456  @16,2  SAY  SPACE(76) 

457  @17,2  SAY  SPACE(76) 

458  @18,2  SAY  SPACE(76) 

459  @19,2  SAY  SPACE(76) 

460  @20,2  SAY  SPACE(76) 

461  s  @21,2  SAY  SPACE ( 76) 

462  STORE  0  TO  LINECT 

463  ELSE 

464  EXIT 

465  ENDIF  CHOICE  =  "CM 

466  * 

467  ENDDO  WHILE  .NOT.  DOF( ) 

468  * 

469  ENDIF  ACCEPT  =  "Y" 

470  * 

471  *  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

472  * 

473  CLOSE  DATABASES 

474  SET  CONSOLE  OFF 

475  ERASE  TEMPONE . DBF 

476  ERASE  TEMPONE. NDX 

477  SET  CONSOLE  ON 

478  SET  PRINT  OFF 

479  * 

480  *  RETURN  TO  CALLING  PROGRAM 

481  * 

482  RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  OOLCNT,  ERROR,  LINECT,  PAGENO, ; 

48  3  SYSDATE,  'IODAY ,  lODATE 

484  RETURN 

485  ****(■**♦**************. »t-*:t*t*****+*(l*t**t*»*'t:*Hl*»*****»t**f*t»*»t 
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1  *  PROCEDURE  EQPPJRPT.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  A  SPLICE  EQUIPMENT 

9  *  PROJECT  LEVEL  REPORT. 

10  * 

11  *  INPUT  FILES  :  EQUIP. DBF,  DESCRIP. DBF,  DECSRIP.NDX, 

12  *  TEMPONE.DBF,  EFEAT.NDX 

13  * 

14  *  OUTPUT  FILE  :  TEMPONE.DBF 

15  * 

16  *  CALLED  BY  :  PROJRPTS.PRG 

1  /  * 

18  *  MODULES  CALLED  :  DELAY. PRG 

19  * 

20  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  LINECT,  PAGENO,  TODAY ,  TODATE 

21  * 

22  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 

23  * 

24  *  CASE  SELECTION  =  1  EQUIPMENT  PROJECT  LEVEL  REPORT 

.25  * 

26  *  CALL  EQUIPMENT  DATABASE  INDEXED  ON  CONTRACT  LINE  NUMBER  AND  FEATURE 

27  *  NUMBER  AND  TOTAL  ON  QUANTITY.  RELATE  TO  DESCRIP  FILE  ON  FEA'IURENO. 

28  * 

29  SET  ESCAPE  OFF 

30  SET  TALK  OFF 

31  SET  COLOR  TO  W+/B,  Wv/B,  B 

32  CLEAR 

33  USE  EQUIP 

34  GO  TOP 

35  IF  EOF( )  =  .T.  THEN 

36  SCT  COLOR  'TO  W+/R,  W+/R 

37  4  13,24  SAY  "  The  EQUIPMENT  Database  is  HMITY!  " 

38  DO  DELAY 

39  REIIJRN 

40  END IF 

41  ??  FLASH  t  "S. REPORTS. SCR/" 

42  4  24,0  SAY  SPACE ( 80 ) 

43  SET  COLOR  TO  R+/  ,  R+/ 

44  4  2,25  SAY  "  EQUIPMENT  PROJECT  LEVEL  REPORT  " 

45  * 

46  *  CREATE  'HIE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  'HIE  REPORT 

47  *  IS  TO  BE  PRINTED  OR  DLSPILYED  on  THE  SCREEN. 

48  * 

49  SET  COLOR  TO  W+/BR,  W+/L1R 

50  4  13,16  SAY  "  Do  you  want  a  printed  report?  (Y*'s  or  No):  " 
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51  SET  COLOR  TO  /BR,  /BR 

52  @13,49  SAY  "Y" 

53  @13,56  SAY  “n" 

54  STORE  "N"  TO  ACCEPT 

55  @13,62  GET  ACCEPT  PICT  "!" 

56  READ 

57  * 

58  *  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

59  * 

60  DO  WHILE  -NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

61  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 

62  SET  OOLOR  TO  W+/R,  W+/R 

63  @  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

64  DO  DELAY 

65  STORE  "N"  TO  ACCEPT 

66  ENDIF 

67  SET  OOLOR  TO  /BR,  /BR 

68  @  13,62  GET  ACCEPT  PICT  "!" 

69  READ 

70  ENDDO 

71  * 

72  SET  COLOR  TO  /BR,  /BR 

73  @13,15  SAY  SPACE( 55) 

74  * 

75  SET  COLOR  TO  W+/BR,  W+/BR 

76  @  13,19  SAY  "  COMPUTING  'TOTALS  TOR  EACH  FEATURE  NUMBER  " 

77  * 

78  USE  EQUIP  INDEX  EFEAT 

79  GO  TOP 

80  SET  OONSOLE  OFF 

81  ERASE  TEMPONE . DBF 

82  SET  CONSOLE  ON 

83  * 

84  *  COMPUTE  THE  TOTAL  QUANTITY  FOR  EACH  FEATURE  NUMBER 

85  * 

86  TOTAL  ON  FEA'IURENO  TO  'lEMPINE.DUF  FIELDS  Ql’Y  WHILE  FEATORENO  -  ■  ’XXXXXX' 

87  * 

88  SELECT  1 

89  USE  TEMPONE 

90  SELECT’  2 

91  USE  DESCRIP  INDEX  DESCRIP 

92  SELECT  TEMPONE 

9  3  SET  RELATION  'TO  FEATURE! JO  INTO  DESCRIP 

94  <79  TOP 

95  * 

96  d  13,15  SAY  SPACE (55) 

97  * 

98  IF  ACCEPr  =  "Y"  IIIEN 

99  7?  FI  ASH  ♦  "W.  PRINTER/" 

100  SET  OONSOLE  OFF 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 
1  16 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
129 
1  30 
131 
1  32 
1  33 
1  34 
1  35 
1  36 
1  37 
138 
1  39 
1  40 
14! 

142 

143 
1  44 

145 

146 

147 


WAIT  TO  CHOICE 
SET  CONSOLE  ON 
SET  COLOR  TO  W/B,  W/B 
@  22,10  SAY  SPACE ( 65 ) 

STORE  DTOC ( DATE ( ) )  TO  TODAY 

STORE  SUBSTR ( TODAY ,4,2)  +  "  "  +  CMQNTH ( DATE ( ) ) 
SUBSTO  ( TODAY  ,7,2)  TO  TODATE 
STORE  0  TO  PAGENO 
STORE  61  TO  L1NECT 
SET  COLOR  TO  R+/  ,  R+/ 

SET  DEVICE  TO  PRINT 


DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 
@  LINECT',  10  SAY  DESCRIP- >CLIN 
@  LINECT, 22  SAY  FEATURENO 
3  LINECT, 35  SAY  DESCRIP- >DESCIPT 
@  LINECT, 68  SAY  QCY 
LINECT  =  LINECT  +  1 
SKIP 

ENDDO  WHILE 


IF  EOF( )  =  .T.  THEN 
IF  PAGENO  >  1  THEN 

@  62,37  SAY  "Page  "  ♦  STR ( PAGENO , 2 , 0 ) 

ENDIF 

EJECT 

SET  DEVICE  TO  SCREEN 

@  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  TO  SCREEN 

a  13,27  SAY  "  Printing  Page  Number  "  +  STR(PAGENO  + 
SET  DEVICE  TO  PRINT 
ENDIF 


2,0) 


1 1 


IF  (LINECT  >  60  .AND.  PAGENO  >  1)  THEN 
(a  62,37  SAY  "Page  "  ♦  SIR(  PAGENO, 2,0) 

ENDIF 

a  2,25  SAY  "  EyUIPMENT  PROJECT  LEVEL  REPORT  " 
a  4,60  SAY  TODATE 

a  6,10  SAY  "CLIN  FEATURE#  DESCRIPTION" 

ia  6,68  SAY  "<JTY" 

■a  7,2  SAY  "==========================================— 

a  7,51  SAY  ’*  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ,=  =  ,  =  =  =  =  ,  =  =  =  =  " 

PAGENO  =  PAGENO  +  1 


148  STORE  9  TO  LINECT 

1  49  * 

150  ENDDO  WHILE  .NOT.  EOF( ) 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


* 

ELSE 

SET  COLOR  TO  GR+/B,  GR  +  /B 
§  5,10  SAY  "CLIN  FEATURE# 

@5,68  SAY  "OTY" 

SET  COLOR  TO  /BR,  /BR 
STORE  0  TO  LINECT 


DESCRIPTION" 


DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  LINECT  <  15 

@  LINECT+7 , 1 0  SAY  DESCRIP- >CLIN 
@  LINECT+7, 22  SAY  FEATURENO 
@  LINECT+7, 35  SAY  DESCRIP- >DESCIPT 
@  LINECT+7,68  SAY  QTY 
LINECT  =  LINECT  +  1 
SKIP 

IF  BOF( )  =  .T.  THEN 

SETT  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File  reached.  Press  any  key  to  EXIT 
SET  CONSOLE  OFF 


WAIT  TO  ACCEPT 
SET  CONSOLE  ON 
EXIT 
ENDIF 

ENDDO  WHILE  LINECT  <  15 


IF  BOF( )  =  .T.  THEN 
EXIT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  QIOICE 
@  22,57  GET  CHOICE  PICT 
READ 


ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER 


OR  "N1 


DO  WHILE  .NOT.  (QIOICE 


T  .OR.  QIOICE  = 

.OR.  QIOICE  =  "X")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

a  24,24  SAY  "  Response  must  be  either  C  or 
DO  DELAY 


ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
'S  22,57  GET  QIOICE  PICT 
READ 
ENDDO 


DETERMINE  IF  THE  USER  W AMI’S  TO  QJIT  OR  CONTINUE 
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201 

202 


220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 


IF  CHOICE  =  "C" 
SET  COLOR  TO 


/BR,  /BR 


203 

9 

07,2 

SAY 

SPACE (76) 

204 

a 

08,2 

SAY 

SPACE (76) 

205 

a 

09,2 

SAY 

SPACE (76) 

206 

id 

10,2 

SAY 

SPACE (76) 

207 

a 

11,2 

SAY 

SPACE (76) 

208 

0 

12,2 

SAY 

SPACE (76) 

209 

a 

13,2 

SAY 

SPACE (76) 

210 

§ 

14,2 

SAY 

SPACE (76) 

211 

a 

15,2 

SAY 

SPACE (76) 

212 

a 

16,2 

SAY 

SPACE (76) 

213 

9 

17,2 

SAY 

SPACE (76) 

214 

9 

18,2 

SAY 

SPACE (76) 

215 

9 

19,2 

SAY 

SPACE (76) 

216 

a 

20,2 

SAY 

SPACE (76) 

217 

9 

21  ,2 

SAY 

SPACE (76) 

218 

STORE 

3  'TO 

LINECT 

219 

ELSE 

EXIT 

ENDIF 

* 

ENDDO  WHILE  .NOT.  EOF() 

* 

ENDIF 

♦ 

*  ERASE  THE  TEMPORARY  DATABASE  USED  FOR  TOTALS 

* 

CLOSE  DATABASES 
SET  CONSOLE  OFF 
ERASE  TEMFONE . DBF 
SET  CONSOLE  ON 
SET  PRINT  OFF 
* 

*  RETURN  TO  CALLING  PROGRAM 

♦ 

REIiEASE  ACCEPT,  CHOICE,  LINECT,  PAGENO,  'TODAY,  'TODATE 
RETURN 

********************+* *++♦****+********+**»♦»***♦ ********* 
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1  *  PROCEDURE  EQPSTRPT. PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  SITE 

9  *  LEVEL  REPORT  FOR  A  SINGLE  SITE. 

10  * 

11  *  INPUT  FILES  :  EQUIP. DBF,  EFEAT.NDX,  DESCRIP. DBF,  DESCRIP. NDX, 

12  *  TEMPONE . DBF ,  EQUIPSIT.NDX 

13  * 

14  *  OUTPUT  FILES  :  NONE. 

15  * 

16  *  CALLED  BY  :  SITERPTS.PRG 

17 

18  *  MODULES  CALLED  :  DELAY. PRG 

19  * 

20  *  GLOBAL  VARIABLE:  HISITE,  LOSITE 

21  * 

22  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE, 

23  *  PAGENO,  TODAY,  TODATE 

24  * 

25  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <«========. 

26  * 

27  *  CASE  SELECTION  =  1  EQUIPMENT  SITE  LEVEL  REPORT 

28  * 

29  *  CALL  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER,  OONIRACT  LINE  NUMBER 

30  *  AND  FEATURE  NUMBER  AND  TOTAL  ON  QUANTITY 

31  * 

32  SET  ESCAPE  OFF 

33  SET  TALK  OFF 

34  SET  COLOR  TO  W+/B,  W+/B,  B 

35  CLEAR 

36  USE  EQUIP 

37  GO  TOP 

38  IF  EOF ( )  =  .T.  THEN 

39  SET  OOI OR  TO  W+/R,  W  +  /R 

40  j  '<!  13,24  SAY  "  The  EQUIPMENT  Uit  .ilvise  is  EMPTY!  " 

41  IX)  DEI  AY 

42  RETURN 
4  3  END IF 

44  ??  FI  ASH  *  "S. REPORTS. SCR/" 

45  <a  24,0  SAY  SPACE (80) 

46  SET  CODR  TO  R*/  ,  R *■ / 

47  .)  2,26  SAY  "  EQUIPMENT  SITE  LEVEL  REPORT  " 

48  * 

49  ♦  ENSURE  THAT  lEMD  >RAKY  DATABASE  l))B  .'XT  EXIST,  IF  SO  ERASE  IT 

50  ♦ 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


SETT  CONSOLE  OFF 
ERASE  TEMPONE.DBF 
SET  CONSOLE  ON 
♦ 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSITE 
@  13,66  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  '  +  LOSITE  +; 

'and  '  v  HISITE  +  '  '  TO  ERROR 
@  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

USE  EQUIP  INDEX  EQUIPSIT 
GO  TOP 
FIND  &MSITE 
IF  EOF( )  =  .T.  THEN 

STORE  "  No  equipment  exists  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  COLOR  TO  W+/R,  W+/R 
@  24,15  SAY  MESSAGE 
DO  DELAY 
LOOP 

ELSE 

EXIT 

ENDIF  £DQF( )  =  .T. 

ENDIF 

ENDDO  WHILE  .T. 

* 

SET  COLOR  TO  W+/BR,  W+/BR 
0  13,15  SAY  SPACE ( 55 ) 

♦ 

*  CREATE  THE  SPLICE  EQUIPMENT  PRUJECT  REPORT  AND  Cl IECK  IF  'HIE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

* 

'a  13,16  SAY  "  Do  you  want  a  printed  report?  (Yes  or  No):  " 

SET  COLOR  TO  /BR,  /BR 
a  13,49  SAY  "Y" 

@  13,56  SAY  "N" 

STORE  "N"  TO  ACCEFr 
a  13,62  GET  ACCEPT  PICT 
READ 
* 
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101  *  ENSURE  THAT  THE  USER’S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

102  * 

103  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

104  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPr  =  "Y")  THEN 

105  SET  COLOR  TO  W+/R,  WT/R 

106  (3  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

107  DO  DELAY 

108  STORE  "N"  TO  ACCEPr 

1  09  END IF 

110  SET  COLOR  TO  /BR,  /BR 

111  4  1 3 , 62  GET  ACCEPT  PICT  " ! " 

112  READ 

113  ENDDO 

114  SET  COLOR  TO  /BR,  /BR 

115  a  13,15  SAY  SPACE(55) 

116  * 

117  SET  COLOR  TO  W+/BR,  W+/BR 

118  I?  13,17  SAY  "  COMPUTING  TOTALS  FOR  EACH  SHE  FEATURE  NUMBER 

119  * 

120  USE  EQUIP  INDEX  EFEAT 

121  TOTAL  ON  FEATURENO  TO  TEMPONE . DBF  FIELDS  CTY; 

122  FOR  FEATURENO  o  ’XXXXXX’  .AND.  SITENO  =  ’&MS1TE1 

123  SELECT  1 

124  USE  TEMPONE 

125  SELECT  2 

126  USE  DESCRIP  INDEX  DESCRIP 

127  SELECT  TEMPONE 

128  SET  RELATION  TO  FEATURENO  INTO  DF.SCRIP 

129  GO  TOP 

1 30  * 

131  3  13,15  SAY  SPACE ( 55 ) 

132  * 

133  IF  ACCEPr  =  "Y"  THEN 

134  ??  FLASH  +  "W. PRINTER." 

1  35  SEr  CONSOLE  OFF 

136  WAIT  TO  CHOICE 

137  SET  CONSOLE  ON 

138  SEV  OOI X)R  IT)  W/B,  W/R 

139  a  22,10  SAY  SPACE ( 65 ) 

140  STORE  LTOC(DATE(  )  )  TO  TODAY 

141  STORE  SUBSTR  ( TODAY  ,4,2)  *  "  "  CMONTH(DATE(  )  )  *  "  1""  »; 

142  SUBSTR  (TODAY,  7,2)  IT)  TODATE 

1  43  STORE  0  TO)  PAGENO 

144  STORE  61  TO  LINECI’ 

145  SET  CTJIOR  TOR*/  ,  Rt/ 

146  SET  DEVICE  TO  PRINT 

1 47  * 

1  48  DO  WHILE  .NUT.  EOF<  ) 

149  DU  WHILE  (L1NECT  -  =  60  .AND.  .NOT.  EOF(  )  ) 

IT)  a  L EJECT, 9  SAY  SITENO 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

1 68 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 
1  99 
200 


@  LINECT, 1 7  SAY  DESCRIP->CLIN 
§  LINECT, 27  SAY  FEATURENO 
@  LINECT, 39  SAY  DESCRIP- >DESCIPT 
@  LINECT, 71  SAY  QTY 
LINECT  =  LINECT  +  1 
SKIP 

ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 

♦ 

IF  EOF ( )  =  .T.  THEN 

IF  PAGEHO  >  1  THEN 

0  62,37  SAY  "Page  "  *  STR ( PAGENO , 2 , 0 ) 

END IF  PAGENO  >  1 
EJECT 

SET  DEVICE  TO  SCREEN  • 

@  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  TO  SCREEN 

a  13,27  SAY  "  Printing  Page  Number  "  +  STO( PAGENO  +  1,2,0)  +  "  " 
SET  DEVICE  TO  PRINT 
ENDIF  (DOF (  )  =  .T. 

♦ 

IF  (LINECT  >  60  .AND.  PAGENO  >  1)  THEN 
a  62,37  SAY  "Page  "  *  STR (PAGENO, 2,0) 

ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1 ) 
a  2,25  SAY  "  EQUIPMENT  SITE  LEVEL  REPORT  " 
a  4,60  SAY  TODA'IE 

a  6,8  SAY  "SITE  CLIN  FEATURE#  DESCRIPTION" 

a  6,71  SAY  "QTY" 

a  7,2  SAY  "========================================-  =  =  = 

a  7,51  SAY  "============================" 

PAGENO  =  PAGENO  *  1 
STORE  9  TO  LINECT 

* 

ENDDO  WHILE  .NOT'.  0DF(  ) 

* 

ELSE 

SET  COLOR  TO  GR*/B,  GR*/B 

9  5,8  SAY  "SITE  n.IN  FEA'IHRE#  DESCRIPTION" 

a  5,71  SAY  "OTY" 

SET  COLOR  'TO  /BR,  /HR 
STORE  0  TO  LINECT 

* 

DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  LINECT  <-  15 

a  LINECT* 7 , 9  SAY  SITENO 
a  LINECT* 7 , 1  7  SAY  DESCRIP  -  •  < 'I , i * J 
a  LINECT *7 , 2 1  SAY  ITA'F'RHNl ) 
a  LINECT*  1 ,  3°  SAY  PUGCRIP-  DITCIPT 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 
21  3 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241  I 

242 

243 

244 

245 

246 

247 

248 

249 

250 


* 


* 

* 


* 


* 

* 


@  LINECT+7 , 71  SAY  QTY 
LINECT  =  LINECT  +  1 
SKIP 

IF  E0F( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 

END IF  EOF ( )  =  ,T. 

ENDDO  WHILE  LINECT  <  15 

IF  EOF (  )  =  .T..  THEN 
EXIT 

ENDIF  BOF( )  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 

STORE  "C"  TO  Q 10  ICE 

0  22,57  GET  CHOICE  PICT  "l" 

READ 

ENSURE  THAT  'DIE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

IF  .NOT.  (CHOICE  =  "C"  .OR.  QIOICE  =  "X" >  THEN 
SET  COLOR  TO  W+/R,  W+/R 

0  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  CHOICE 

ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

SET  COLOR  TO  R+/B,  R+/B 
4  22,57  GET  CHOICE  PICT  "!" 

READ 

ENDDO  WHILE  .NOIL  (QIOICE  =  "C"  .OR.  0101(0  =  "X" ) 

DETERMINE  IF  'DIE  USER  WANTS  'TO  yUIT  UR  CONTINUE 

IF  QIOICE  =  "C" 

SET  COLOR  TO  /BR,  /HR 
a  07,2  SAY  SPACE! 76) 

■a  08,2  SAY  SPACE (76) 

4  09,2  SAY  SPACE! 76) 

0  10,2  SAY  SPACE ( 76 ) 

0  11,2  SAY  SPACE! 76) 

0  12,2  SAY  SPACE ( 76 ) 
a  13,2  SAY  SPACE (76) 
a  14,2  SAY  SPACE! 76) 

J  15,2  SAY  SPACE ( 76) 
a  16,2  SAY  SPACE (76) 
a  17,2  SAY  SPACE! .6) 
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251  @18,2  SAY  SPACE( 76 ) 

252  @19,2  SAY  SPACE(76) 

253  @20,2  SAY  SPACE(76) 

254  a  21  ,2  SAY  SPACE(76) 

255  STORE  0  TO  LINECT 

256  ELSE 

257  EXIT 

258  ENDIF  CHOICE  =  "C" 

259  * 

260  ENDDO  WHILE  .NOT.  EOF( ) 

261  * 

262  ENDIF  ACCEPT  =  "Y" 

263  * 

264  *  ERASE  THE  TEMPORARY  DATABASE  USED  FOR  TOTALS 

265  * 

266  CLOSE  DATABASES 

267  SET  CONSOLE  OFF 

268  ERASE  TEMPONE . DBF 

269  SET  CONSOLE  ON 

270  SET  PRINT  OFF 

271  * 

272  *  RETURN  TO  CALLING  PROGRAM 

273  * 

274  RELEASE  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE,  PAGErfo , ; 

275  TODAY,  TODATE 

276  RETURN 

277  *t****»**********»»*****»***»*tt**t*»f*t*»****1:**(it*«****tt*t1rtt*ltt»*tt* 
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*  PROCEDURE  EQUIPCMD.PRG 


AUTHORS 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 


*  PURPOSE 


PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEW 
ALL  DATA  IN  TIE  EQUIPMENT  DATABASE. 


*  INPUT  FILES 


*  OUTPUT  FILE 


*  MODULES  CALI  ED  :  EQUIPUPD.PRG.  EQUIPREV.PRG 


CM  LED  BY 


:  MA INMENU. OIL) 


*  LOCAL  VARIABLES:  SELEKT 


DATE  I  AST  TIME  MODIFIED 


22  DECEMBER  1985  <  = 


*  DISPLAY  THE  PROCESS  '•'J.-I-JU  V.  HIE  "SER  AND  WAIT  fOR  'HIE 

*  SELECT  I' -^J. 


S'P  )RL  "1"  to  SLIEKT 
do  whi:e  seieit 
SET  o  v  ... 

(  •  A  .j  '* 

??  FI  AS  i  I  •  "w 
SET  C'N:>  Li.  i: 

wait  i»>  i-r: 

SIT  'TONS' 'IE  -N 


PROCESS  RMHINE  ;A' 


Hi  -SEP':;  .1:  iJTIHi. 


DU  CASE 


CAI.E  !1  IE  D.LM  i'MEN"  i  Tl  'ATE  I  F'O-AM. 
1  A  IE  SEIEKT  -  "1" 

; i .'  ei.ii;i p'  pe' 

‘'am.  the  i-y  ii'ment  review  hr  « ;kam. 
case  seiekt  -  "2" 

Do  EUlirREv 


return  to  the  mm:;  mi-mu  prtoram. 

< IV IE  LEI.EKT  .  "1" 


ENDCASK 
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51  * 

52  ENDDO  (WHILE  SELEKT  =  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 

57  ***  ********%***  +  +  ******************************+********■***■***'*'¥■***.*  X 
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1  *  PROCEDURE  EQUIPREV.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  SC,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  TO  ENABLE  THE  USER  TO  REVIEW  ALL  RECORDS  IN  THE 

9  *  EQUIPMENT  DATABASE. 

10  * 

11  *  INPUT  FILES  :  EQUIP. DBF  INDEX  EQUIPSIT.NDX 

12  * 

13  *  OUTPUT  FILES  :  NONE 

1 4  * 

15  *  CALLED  BY  :  EQUIPCMD.PRG 

16  * 

17  *  MODULES  CALLED  :  DELAY. PRG 

18  * 

19  *  GLOBAL  VARIABLE:  HI DATE,  HIFNUM,  HIS HE,  LODATE,  LOFNUM,  1DS1TE 

20  * 

21  *  LOCAL  VARIABLES:  CURRENTNO,  EOF,  ERROR,  FIRST_REC,  LAST_REC,  MCLIN, 

22  *  MDESCIPT,  MESSAGE,  MSITE,  MFEAT,  UOF 

23  * 

24  *  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <========== 

25  * 

26  *  CASE  SELECTION  =  2  REVIEW  EQUIPMENT  FILE  RECORDS 

27  * 

28  *  USE  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  II IE 

29  *  USER  TO  INPUT  THE  SHE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  I'OINT. 

30  * 

31  SET  ESCAPE  OFF 

32  SET  TALK  OFF 

33  SELECT  1 

34  USE  EQUIP 

35  GO  TOP 

36  SET  (33 LOR  TO  W+/B,  W+/B,  B 

37  CLEAR 

38  IF  EOF( )  =  ,T.  THEN 

39  SEr  COLOR  TO  W+/R,  W+/R 

40  d  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPTY!  " 

41  DO  DELAY 

42  RETURN 

43  END IF 

44  ??  FI  ASH  +  "S.EQUIPREV.SCR/" 

45  0  24,0  SAY  SPACE  (80) 

46  STORE  "Enter  00  to  start  at  TOF,  R9  to  start  at  EOF,  or  a  si  l”  munlier  "  <■ ; 

47  "lietween  01  and  58  "  'TO  MESSAGE 

48  SET  GDI  OR  TO  /W,  /W 

49  a  24,0  SAY  MESSAGE 

50  STORE  ’88'  TO  MS  FIE 


30  0 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


DO  WHILE  .NOT.  ( (MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE 

SET  COLOR  TO  /BR,  /BR 
STORE  '00'  TO  MSITE 
@  9,20  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  ' 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SET  OOLOR  TO  W+/R ,  W+/R 

STORE  '  Response  must  be  between  1  +  LOS  I 'IE  +  1  and  1  + ; 

HISITE  +  ’ ,  Zero  (00)  or  99  ’TO  ERROR 
@  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MSITE  =  ’00'  .OR.  MSITE  =  '99')  'IIIEN 
USE  EQUIP 

IF  MSITE  =  '00'  THEN 
00  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 

ELSE 

IF  MSITE  =  '99'  THEN 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
ENDIF  MSITE  =  '99' 

END  IF  MS  HE  =  '00' 

ELSE 

USE  EQUIP  INDEX  EQUIPSIT,  EQUIPPRJ,  EQU1PDAT,  EQULPSD 

GO  'TOP 

FIND  SMS  HE 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

STORE  "  No  records  exist  lor  site  numL*>r  "  *  MSITE 
",  try  again  "  'TO  ERRl >R 
SET  COLOR  'TO  W+/R,  W+/R 
@  24,16  SAY  ERROR 
DO  DEI  AY 

SET  COLOR  'TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  '88'  TO  MS  HE 
END  I F 
ENDIF 
ENDIF 


=  '99'  ) 


99'  ) 


r  -r  .  V _  vv»v. 


I 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
1  -9 
130 
1  31 
1  32 
1  33 
134 
1  35 
1  36 
1  37 
1  38 
1  39 
1  40 

141 

142 

143 
1  44 
1  45 

146 

147 
1  48 

149 

150 


ENDDO  WHILE 
* 

STORE  SPACE (10)  +  'Enter  "00  "  to  start  at  TOF  or  a  six  digit  '  +  ; 

'feature  number'  +  SPACE(IO)  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  COLOR  TO  /W,  /W 
<a  24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SETT  COLOR  TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
9  14,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 

MFEAT  =  '00  *  .OR.  MFEAT  =  ' 99  ') 

SET  COLOR  TO  W/B,  W/B 
«  24,0  SAY  SPACE) 80) 

SEr  COLOR  TO  W+/R ,  W+/R 

S'lORE  ’  Response  must  be  between  1  +  LOFNUM  +■  *  and  1  + ; 

HIFNUM  *■  ',  Zero  (00)  or  99  'TO  ERROR 
■a  24,8  SAY  ERROR 
DO  DELAY 

SEP  COLOR  TO  /W,  /W 
■a  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  MFEAT  =  '00  '  THEN 

EXIT 
ENDIF 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  HIFNUM) 

STORE  MSITE  +  MFEAT  TO  MKEY 

USE  EQUIP  INDEX  EQUIFDAT 

GO  TOP 

FIND  A MKEY 

LF  EOF (  )  =  .T.  'MIEN 

SEP  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE) 80) 

SEr  COLOR  TO  W+/R,  W+/R 

a  24,12  SAY  '  No  record  exists  for  feature  muitlier 
MFEAT  <  ’  ,  try  again  1 

DO  DELAY 

SEP  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
LOOP 

EI.SE 

EXIT 

ENDIF  EOF ( )  =  .T. 

ENDIF 

ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

ENDDO  WHILE 

ENDIF  .NOP.  (MS FIE  >  =  DiSITE  .OR.  MSITE  •=  HISITE) 


+  ; 


302 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 


SET  COLOR  TO  W/B,  W/B 
fl  24,0  SAY  SPACE ( 80 ) 

STORE  "  At  beginning  of  records  for  site  number  "  +; 

MSITE  +  "  "  TO  TOF 

STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 
DO  WHILE  .T. 

SET  COLOR  TO  R+/B,  R+/B 
@  6,47  SAY  RECNO( )  PICT  "999" 

STORE  FEATURENO  TO  MFEAT 
SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 
FIND  & MFEAT 
STORE  CLIN  TO  MCLIN 
STORE  DESCIPT  TO  MDESCRIP 
SELECT  1 

SET  COLOR  TO  /BR,  /BR 
a  9,20  SAY  SITENO  PICT  "99" 

@  9,68  SAY  EFFDA1E  PICT  "999999" 

<a  13,45  SAY  MCLIN  PICT  "9999“ 

@  14,45  SAY  FEATURENO  PICT  "999999" 

@  15,45  SAY  MDESCR I P  PICT  "!!!!! I !!!!  I  1  J  !!!!!!!  1  !!!!!!!!!  " 
a  16,45  SAY  QV Y  PICT  "999" 

(3  18,50  SAY  UNIT_PRICE  PICT  "99999999.99" 
a  19,50  SAY  MO_MAINT  PICT  "99999999 .  (:>9" 

@  20,53  SAY  UNIT_INSTA  PICT  "99999.99" 

SET  COLOR  TO  R+/B,  R  +  /B 
STORE  "N"  TO  Q10ICE 
0  22,68  GET  QIOICE  PICT  "i" 

READ 

* 

*  ENSURE  THAT  I  HE  USER'S  PROMPT  IS  EITHER  "N",  "P"  >H  "a" 

♦ 

DO  WHILE  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "p"  .OR.  CHOICE  - 

IF  .NOT.  (QIOICE  =  "N"  .OR.  CHOICE  -  "P"  .OR.  CHOICE  -  "X"  I  IHHN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,23  SAY  "  Response  must  lie  either  It,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  Rt/B 
a  22,68  GET  QIOICE  PICT  "l" 

READ 

ENDDO 

* 

*  SKIP  TO  TILE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  ”N”  (HEN 

IF  (MSITE  >=  ICS  LIE  .AND.  MSITE  <=  H1SITE)  THEN 
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IF  EOF( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
<a  24,21  SAY  DOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
@  24,21  SAY  EOF 
DO  DELAY 
ENDIF 

END IF  EOF ( )  =  .T. 

ELSE 

IF  RECNO( )  =  LAST_REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HIS1TE) 
ENDIF  QIOICE  =  "N" 


*  SKIP  TO  THE  PREVIOUS  RECORD 


IF  CHOICE  =  "P"  THEN 

STORE  RECNO(  )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HIS1TE)  THEN 
SKIP  -  1 

IF  BOF ( )  =  .T.  THEN 
GOTO  CURRENTNO 
SEI'  COLOR  TO  W+/R,  W+/R 
■a  24,16  SAY  'IOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP 

SCT  COLOR  TO  W+/R,  W+/R 
'd  24,16  SAY  TOF 
LX)  DEI  AY 
ENDIF 

ENDIF  BOF( )  =  .T. 

EIjSE 

IF  RECNO( )  =  FIRSTJIEC  THEN 
GO  BOITTJM 

ELSE 

SKIP  -  1 
ENDIF 

ENDIF  (MSIIE  '=  LOSITE  .AND.  MSI'ITI  •  =  HISITE) 
ENDIF  QIOICE  =  "P" 


■  v  * 
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251  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

252  * 

253  IF  CHOICE  =  "X" 

254  EXIT 

255  END IF 

256  ENDDO  WHILE  .T. 

257  * 

258  *  RETURN  TO  CALLING  PROGRAM. 

259  * 

260  RELEASE  ALL  LIKE  M* ,  CURRENTOO,  EOF,  ERROR,  FLRST_REC,  LAST_REC,  TOF 

261  CLOSE  DATABASES 

262  RETURN 

263  ************************************************************* 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  EQUIPUPD.PRG 

* 

*  AUTHORS  : 

* 

* 

* 

* 

*  PURPOSE  : 

* 

* 

*  INPUT  FILES  : 

* 

* 

*  OUTPUT  FILES  : 

* 

* 

*  CALLED  BY  : 

* 

*  MODULES  CALLED  : 

* 

*  GLOBAL  VARIABLE: 

* 

*  LOCAL  VARIABLES: 

♦ 

* 

* 

♦ 

*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <*========= 

* 

*  CASE  SELECTION  =  1  UPDATE  EXISTING  RECORDS 

* 

*  USE  EQUIPMENT  DATABASE  USING  THE  SITE  NUMBER  INDEX,  BUT  UPDATING 

*  ALL  EQUIP  FILE  RELATED  INDICES,  ASK  THE  USER  ’IO  INPUT  A  SITE 

*  NUMBER  THEN  START  UPDATING  FROM  THAT  POINT. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  EQUIP 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

•A  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPTY!  " 

DO  DEI  .AY 
RETURN 
END  IF 

??  FLASH  +  "S.EQUIPUFD.SCR/" 

'a  24,0  SAY  SPACE) 80) 

STORE  "Enter  00  to  start  at  TOF,  99  to  start  at  IDF,  or  a  sit<>  "  ♦; 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  SC,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ENABLE  THE  USER  TO  MODIFY  ANY  DATA  ELEMENT  IN 
THE  EQUIPMENT  DATABASE. 

EQUIP. DBF,  INDICES:  EQUIPPRJ.NDX,  EQUIPSIT.NDX 
EQUIPDAT.NDX,  EQUIPSD.NDX 

EQUIP. DBF,  INDICES:  EQUIPPRJ.NDX,  EQUIPSIT.NDX 
EQUIPDAT.NDX,  EQUIPSD.NDX 

EQUIPCMD.PRG 

DELAY. PRG 

HIDATE,  HIFNUM,  HISITE,  LODATE,  LOFNUM,  LOSITE 

MEFFDATE,  MSITE,  MSITE,  MFEAT ,  MPRICE, 

MMAINT,  M INSTALL,  MQTY,  MESSAGE 

ACCEPT,  Q 10 ICE,  CURRENTNO,  EOF,  ERROR,  FIRST_REC, 

INTRO,  LAST_REC,  TOF 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


"number  between  "  +  LOSITE  +  "  and  "  +  HISITE  +  "  "  TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 

DO  WHILE  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

SET  COLOR  TO  /BR,  /BR 
STORE  '00'  TO  MSITE 
@8,20  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE' 1  Response  must  be  between  *  +  LOSITE  +  ’  and  1  +  HISITE  +; 

’,  Zero  (00)  or  99  ’TO  ERROR 
@  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MSITE  =  ’00’  .OR.  MSITE  =  ’99’)  THEN 
USE  EQUIP 

IF  MSITE  =  ’00’  THEN 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
GO  TOP 

STORE  RECNOO  TO  FIRST_REC 

ELSE 

IF  MSITE  =  ’99’  THIN 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
ENDIF  MSITE  =  ’99‘ 

END IF  MSITE  =  ’00’ 

ELSE 

USE  EQUIP  INDEX  EQUIPSIT,  EQUIPPRJ,  EQUIPDAT,  EQUIPSD 

GO  TOP 

FIND  & MSITE 

IF  EOF( )  =  .T.  THEN 

SEr  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE( 80 ) 

STORE  "  No  records  exist  tor  site  nunfer  "  *•  MS  PIE  *  ; 

",  tr/  again  "  TO  ERROR 
SEP  COLOR  TO  W+/R ,  VU/R 
0  24,16  SAY  ERROR 
DO  DELAY 

SEr  CDU)R  TO  /W ,  /W 

a  24,0  SAY  MESSAGE 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 
1  33 
1  34 
135 
1  36 
1  37 
1  38 
1  39 
1  40 
141 
1  42 
143 
1  44 
145 
1  46 
147 


STORE  '88'  TO  MSITE 
END  IF 
END  IF 
END  IF 

ENDDO  WHILE  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99' 

* 

STORE  SPACE ( 1 0 )  +  'Enter  "00  "  to  start  at  TOF  or  a  six  digit  '  +  ; 

'feature  number'  +  SPACE! 10)  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  COLOR  'TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
a  11,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 

MFEAT  =  '00  '  .OR.  MFEAT  =  ' 99  ') 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  Wv/R,  W+/R 

STORE  '  Response  must  be  between  '  *  LOFNUM  +  '  and  '  ♦ ; 

HIFNUM  +  ',  Zero  (00)  or  99  '  TO  ERROR 

a  24,8  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  MFEAT  =  '00  '  THEN 

EXIT 
ENDIF 

IF  (MFEAT  >  =  LOFNUM  .AND.  MFEAT  <  =  HIFNUM) 

STORE  MS  I  IE  +  Ml'EAT  TO  MKEY 

USE  EQUIP  INDEX  EQUIPDAT 

GO  TOP 

FIND  &MKEY 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

STOKE  '  No  record  exists  for  feature  number  '  »; 

MFEAT  +  ' ,  try  again  '  TO  ERROR 
a  24,12  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
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151  END IF  BOF( )  =  .T. 

152  END IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

1 53  END IF 

154  ENDDO  WHILE  .T. 

155  ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  HISITE) 

156  * 

157  SET  COLOR  TO  W/B,  W/B 

158  @24,0  SAY  SPACE(80) 

159  STORE  "  At  beginning  of  records  for  site  number  "  +; 

160  MSITE  +  "  "  TO  TOF 

161  STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 

162  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

163  SPACE (16)  TO  MESSAGE 

164  STORE  1  TO  INTRO 

165  DO  WHILE  .T. 

166  SET  COLOR  TO  /W,  /W 

167  a  24,0  SAY  MESSAGE 

168  * 

169  *  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.  THE  M  PREFIX 

170  *  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

171  *  CORRESPONDING  DATABASE  FIELDS. 

172  * 

173  STORE  UNIT_PRICE  TO  MPRICE 

7  74  STORE  MO_MAINT  TO  MMAINT 

175  STORE  UNIT_INSTA  TO  MINSTALL 

176  STORE  <JTY  TO  M<JTY 

177  STORE  FEATURENO  TO  MFEAT 

178  SELECT  2 

179  USE  DESCRIP  INDEX  DESCRIP 

180  FIND  5 MFEAT 

181  STORE  DESCIPT  TO  MDESCIPT 

1  82  SELECT  1 

183  * 

184  *  INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 
1  85  j  * 

186}  IF  INTRO  -  1  WEN 

1 87 |  STORE  0  TO  INTRO 

188 |  ??  FLASH  *  "W.EOUIPUPD/" 

18° |  SET  CONSOIL  OFF 

1  ■  WAIT  TO  ANS 

1  "1  SET  a  INSOLE  ON 

1  92  |  END  IK 

1  9  3  |  * 

1  94  |  SET  i DIOR  TO  R*-/B,  R  +  /B 

198  -i  5,47  SAY  RECiO(  )  PICT  "999" 

196  SET  COLOR  TO  /BR,  /HR 

197  J  8,20  SAY  SI'IENO  PICT  "99" 

198  "i  8,98  SAY  EFFDATE  PICT  "999^99" 

1 90  j  -.1  11,45  SAY  MFEAT  PICT  "9999<t<i" 

200 |  ■)  12,45  SAY  MDESCIPT  PICT  "!!!!!!!!!!! I  I !!!!! I  I  !!!!!!!!  I  ! " 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 
2  39 
240  | 


@  13,45  SAY  MQTY  PICT  "999" 

@  15,50  GET  MPRICE  PICT  "99999999.99" 

0  16,50  GET  MMAINT  PICT  "99999999.99" 

0  17,53  GET  MINSTALL  PICT  "99999.99" 

READ 

SETT  COLOR  TO  W/B,  W/B 
§  24,0  SAY  SPACE (80) 

IF  .NOT.  (CTY=MCTY  .AND.  UNIT_PRICE=MPRICE  .AND.; 

MO_MAINT=MMAINT  .AND.  UNIT_INSTA=MINSTALL)  THEN 

ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES. 

SET  COLOR  TO  W+/B,  W+/B 

@  19,12  SAY  "Do  you  want  to  accept  the  changes?  (Yes  or  No): 
SET  COLOR  TO  R+/B,  R+/B 
0  19,49  SAY  "Y" 
id  19,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@  19,62  GET  ACCEPT  PICT  "l" 

READ 


ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPr  =  "Y" )  THEN 
SET  COLOR  TO  W/B,  W/B 
d  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

0  24,24  SAY  "  Response  must  Lx?  either  N  or  Y  " 
DO  DELAY 

STORE  "N"  'TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  R  +  /B 
d  19,62  GET  ACCEPT  PICT  "!" 

READ 

ENDDO 

3  19,62  SAY  "  " 

IF  ACCEPT  t  "Y"  'THEN 


241 

242 

243 


244 

245 

246 

247 


* 


REPLACE  UNITJ’RICE  WITH  MPRICE 
REPLACE  MO_MA INT  WITH  MMAINT 
REPLACE  UN1T_INSTA  WITH  MINST'ALL 
REPLACE  <J TY  WITH  MiJTY 
ENDIF 
ENDIF 


248 

249 

250 


LET  LO|/jR  TO  W/B,  W/B 
■)  19,10  SAY  SPACE  (60) 
SET  OUIjOR  TO  Rf/B,  R+/B 


II 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289  | 

290  j 

291  | 

292 

293 

294 

295 

296 

297 

298 

299 

300 


STORE  "N"  TO  CHOICE 
a  21,68  GET  CHOICE  PICT 
READ 

ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "N" ,  "P"  OR  "X" 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  = 
IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "p"  .OR.  CHOICE  =  "X 
SET  COLOR  TO  W/D,  W/D 
@24,0  SAY  SPACE ( 80 ) 

SETT  COLOR  TO  W+/R,  W+/R 

a  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  CHOICE 
END1F 

SET  COLOR  TO  R+/B,  R+/B 
(a  21,68  GET  CHOICE  PICT  "l" 

READ 

ENDDO 

SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 
IF  CHOICE  =  "N"  THEN 

IF  (MSITE  >  =  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  EOF ( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
@  24,21  SAY  DOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SI'IENO  =  MSITE)  THEN 
SKIP  -  1 

SET'  COIOR  TO  W+/R,  W+R 
a  24,21  SAY  EOF 
DO  DELAY 
ENDIF 

END IF  DOF ( )  =  .T. 

ELSE 

IF  RI::CNO(  )  =  I  AST  REC  THEN 
GO  TOP 
ELSE 

SKIP 

ENDIF 

ENDIF  (MSITE  >  =  LOSITE  .AND.  MSITE  <=  UISITE) 

ENDIF  CHOICE  =  "N" 


SKIP  TO  THE  PREVIOUS  RECORD 
IF  CHOICE  =  "P"  THEN 


"X") 

")  THEN 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 
31  1 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 
3  39 
340 


STORE  RECNO( )  TO  CURRENTNO 

IF  ( MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP  -  1 

IF  BOF ( )  =  .T.  THEN 
GOTO  CURRENTNO 
SET  COLOR  TO  W+/R,  W+/R 
B  24,16  SAY  TOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE) 'THEN 
SKIP 

SET  COLOR  TO  W+/R,  W+/R 
0  24,16  SAY  TOF 
DO  DELAY 
ENDIF 

ENDIF  BOF ( )  =  .T. 

ELSE 

IF  RECNO(  )  =  FIRST_REC  '111EN 
GO  BOTTOM 

EISE 

SKIP  -  1 
ENDIF 

ENDIF  (MSITE  >=  LOS  TIE  .AND.  MSITE  < =  HISITE'58') 
ENDIF  CHOICE  =  "P" 

USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 


IF  CHOICE  =  "X" 

EXIT 

ENDIF 

+ 

ENDDO  Will  IE  .T. 

* 

*  RE1URN  TO  CALLING  PROGRAM. 

* 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  CURRENTO),  EOF,  ERROR,; 

F  IRST_REC ,  INTRO,  L\ST_REC,  TOF 
CLOSE  DATABASES 
RETURN 

«'**  +  '**i»r  +  *'*  +  +  +  +**  +  ***  +  'f  +  *'*'  +  +  **-  +  *-*'*ir+-*  +  +'*'*t**t*-*  +  *-*'*'***-+*  *  i 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 
1  4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
40; 

41 

42 

43 

44  | 

45 

46 

47 

48 

49 

50 


PROCEDURE  MAINMENU . PRG 


AUTHORS 


*  PURPOSE 


INPUT  FILES 
OUTPUT  FILES 
CALLED  BY 
MODULES  CALLED 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  THE  CHOICE  OF  LOADING  A  NEW  DELIVERY, 
ORDER,  MAINTAINING  THE  EQUIPMENT,  MANUAL,  AND 
SERIAL  NUMBER  DATA  BASES  OR  GETTING  A  SERIES  OF 
REPORTS  FROM  THESE  UPDATED  DATABASES. 

NONE. 

NONE. 

SELECTOR. PRG 

NEWDOCMD . PRG ,  EQUIPCMD. PRG,  MANULCMD . PRG , 

SERNOCMD . PRG ,  REPORCMD . PRG ,  DESPMOD.PRG, 

CONFMOD . PRG ,  DELAY. PRG,  MAINTDO . PRG ,  MKLABELS . PRG 


GLOBAL  VARIABLES 
LOCAL  VARIABLES 


HI  DATE,  1 1 1 1'NUM ,  H1S1TE,  lODATE,  IjOFNUM,  lOSITE 
ANS 

DATE  LAST  TILE  MODIFIED  ==========>  23  DECEMBER  1985  <  =  =  =  =  =  =  =  =  =  = 

DBASE  PROGRAM  GONFLGURAT [ON  VARIABIJCS: 


SET  BELL  OFF 
SET  CONSOLE  ON 
SET  INTENSITY  OFF 
SET  SCOREBOARD  OFF 
SET  TALK  OFF 

PUBLIC  HI  DATE,  HIFNUM,  IIISITE,  D  'I 'ATE,  IOFNUM,  lOSITE 
*  INITIALIZE  THE  PUBLIC  VARIABLES 

t 

STORE  ’'>91  231  ’  TO  HL DATE 
STORE  '994001 '  TO  HIFNUM 
STORE  '58'  IO  IIISITE 
STORE  '840101'  TO  IODATE 
STORE  '000101'  TO  LUFNUM 
STORE  '01  '  TO  lOSITE 


*  DIGIT  AY  THE  PR  CESS  MENU  IO  THE  1  'SER  AND  WAIT  FOR  THE  USER'S  CHOKE. 

+ 

STORE  "1"  iO  ANS 
IO  WHILE  .T. 
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FLASH  =  CHR(  1  45 ) 

SETT  COLOR  TO  W/B,  W/B,  B 
??  FLASH  +  "S.MA INMENU. SCR/" 

§  24,0  SAY  SPACE  (80) 

SET  COLOR  TO  R+/B,  R+/B 
@  22,53  GET  ANS  PICT  "9" 

READ 

PERFORM  APPROPRIATE  TASK  BASED  ON  'HIE  USER’S  CHOICE. 
DO  CASE 

CALL  THE  NEW  DELIVERY  ORDER  LOAD  COMMAND  PROGRAM. 
CASE  ANS  =  "1" 

DO  NEWDOCMD 


CALL  THE  EQUIPMENT  FILE  MAINTENANCE  COMMAND  PROGRAM . 

CASE  ANS  =  "2" 

DO  EQUIPCMD 
STORE  "2"  TO  ANS 

CALL  TIE  DESCRIPTION  FIUI  MAINTENANCE  COMMAND  PROGRAM. 

CASE  ANS  =  "3" 

DO  DESPMOD 
STORE  "3"  TO  ANS 

CALL  THE  SHE  CONFIGURATION  FILE  MAINTENANCE  COMMAND  PROGRAM . 

CASE  ANS  =  "4" 

DO  CONFMOD 
STORE  "4"  TO  ANS 

CALL  TIE  MANUAL  FILE  MAINTENANCE  COMMAND  PROGRAM. 

CASE  ANS  =  "5" 

DO  MANULCMD 
STORE  "5"  TO  ANS 

CALL  TIE  SERIAL  NUMBER  MAINTENANCE  COMMAND  PROGRAM . 

CASE  ANS  =  "6" 

DO  SERNOCMD 
STORE  "6"  TO  ANS 

CALL  TIE  REPORTS  GENERATION  COMMAND  PROGRAM. 

CASE  ANS  =  "7" 

DO  REPORCMD 
STORE  "7"  TO  ANS 

CALL  TIE  MAINTENANCE  DELIVERY  ORDER  GENERATION  I'RUIRAM 

CASE  ANS  =  "8" 

DO  MAINTUO 


W  'jt  *J»*Mi*'  W  -«■  — f-  V.  V- 


’  V*  V  V 


'.I1', "."A  .I'H'lV.i" 


W^WWIWWIW'.'II 
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101 

102 

10J 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 


STORE  "8"  TO  ANS 

* 

*  CALL  THE  NAILING  LABELS  GENERATION  PROGRAM 
CASE  ANS  =  "9" 

DO  MKLABELS 
STORE  "9"  TO  ANS 

* 

*  RETURN  THE  USER  TO  SELECTOR  PROGRAM  CONTROL. 
CASE  ANS  =  "0" 

CLOSE  DATABASES 
RETURN 

* 

ENDCASE 

* 

*  CONTINUE  PROCESSING  LOOP  CONTROL  CHECK. 

♦ 

ENUDO  WHILE  .T. 


315 

.  / 

S 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1  1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
SU 


*  PROCEDURE  MAINTDO . PRG 

* 

*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

* 

*  INPUT  FILES 

* 

* 

*  OUTPUT  FILE 

* 

*  CALLED  BY 

♦ 


LCDR  EDWARD  J.  G\SE,  SC,  USN 
LCDR  WINSTON  H.  E'JCKLEY ,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 


PROVIDE  THE  INPUTS  FOR  A  MAINTENANCE  DELIVERY 
ORDER,  WHICH  WILL  BW  IMPORTED  INTO  LOTUS  1-2-3. 


EQUIP. DBF,  DESCRIP. DBF,  DECSRIP.NDX,  TEMPONE . DBF 
EFEAT.NDX.  TEMOTWO.DBF,  TEMPTHRE . DBF ,  TEMPFOUR . DBF 


NEWDO.PRN 
MA INMENU. PRG 


*  MODULES  CALLED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HISITE,  LOSITE 

* 


*  LOCAL  VARIABLES:  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SITES 

♦ 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <======= 


SET  ESCAPE  OFF 
SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

??  FLASH  +  "S. MAINTDO. SCR/" 
a  24,0  SAY  SPACE (80) 

STORE  "  Enter  the  number  of  the  site  for  which  the  maintenance  is 
"to  be  performed  "  TO  SITES 

STORE  SPACE(20)  +  "  Enter  the  Discount  and  Escalation  Rates  "  t; 

SPACE! 20)  TO  RATES 
SET  COLOR  TO  /BR,  /BR 
@  20,57  SAY  "  NEWDO.PRN  " 


* ; 


*  OBTAIN  THE  NUMBER  OF  HIE  SITE  TO  RECEIVE  'HIE  MAINTENANCE  FROM  'HIE  USER 

# 

USE  EQUIP  INDEX  EqU 1  PS IT.NDX 


DO  WHILE  .T. 

SEP  OOI DR  iO  /W,  /W 
a  24,0  SAY  SHIES 
SET  COLOR  TO  R+/B,  IU/B 
S'TORE  I  OS  HE  TO  MSITE 
.1  04,65  GET  MS  HIE  PICT 
READ 

IF  .NOP.  (MS HIE  >=  lOSITE  .AND.  MSITE  -  =  HISl'lE)  THEN 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
6T 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SETT  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

SETT  COLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  '  +  LOSITE  + ; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
@  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  EOF ( )  =  .T.  THEN 

SETT  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE) 80) 

SETT  COLOR  TO  W+/R,  W+/R 

STORE  "  No  records  for  site  number  "  +  MS1TE  +; 

"  exist,  try  again  "  TO  MESSAGE 
@  24,16  SAY  MESSAGE 
DO  DELAY- 
LOOP 

ELSE 

EXIT 

ENDIF  EOF)  )  =  .T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDDO  WHILE  .T. 

* 

*  ENSURE  THAT  TEMPORARY  DATABASES  DO  NOT  EXIST,  IF  SO  ERASE  THEM 

* 

SET  CONSOLE  OFF 
ERASE  TEMPONE . DBF 
ERASE  TEMPONE . NDX 
ERASE  TEMPTWO.DBF 
ERASE  TEMPT!  IRE .  DBF 
ERASE  TEMPFOUR . DBF 
SET  CONSOLE  ON 
* 

*  INFORM  THE  USER  THAT  THERE  WILL  BE  A  SLIGHT  DELAY 

* 

SET  COLOR  TO  W+/R,  W+/R 

STORE  SPACE) 10)  +  "Creating  a  temporary  database  and  index.  " 

"PLEASE  BE  PATIENT  "  +  SPACE) 10)  TO  MESSAGE 
a  24,0  SAY  MESSAGE 

COPY  TO  TEMPONE. DBF  WHITE  SITENO  =  "&MSITE" 

USE  TEMPONE 

INDEX  ON  FEATURENO  TO  TEMPONE 

TOTAL  ON  FEATURENO  TO  TEMPTWO.DBF  FIELDS  yi’Y  MULE  FEATURENO  '.  >  ’XXXXXX' 

* 

*  OBTAIN  THE  DISCOUNT  AND  ESCALATION  RATES  FROM  THE  USER 

* 

SET  COLOR  TO  /W,  /W 
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101  @  24,0  SAY  RATES 

102  STORE  "0.000"  TO  LCNHWRATE 

103  STORE  "0.000"  TO  LCNSWRATE 

104  STORE  "0.000"  TO  SNETSWRATE 

105  STORE  "0.000"  TO  UPLIFT 

106  SET  CD  LOR  TO  /BR,  /BR 

107  @14,61  GET  LCNHWRATE  PICT  "9.999" 

108  @15,61  GET  LCNSWRATE  PICT  "9.999" 

109  @16,61  GET  SNETSWRATE  PICT  "9.999" 

110  @17,61  GET  UPLIFT  PICT  "9.999" 

1 1  1  READ 

112  * 

113  *  ASK  TO  USER  TO  VERIFY  THAT  HE/SHE  WANTS  70  CONTINUE 

114  * 

115  SET  COLOR  70  W+/B,  W+,B 

116  @24,0  SAY  SPACE ( 80 ) 

117  @  22,22  SAY  "Do  you  want  to  Continue  or  exit?  " 

118  SET’  COLOR  70  R  +  /B,  R+/B 

119  @  22,37  SAY  "C" 

120  @22,50  SAY  "X" 

121  STORE  "C"  70  CHOICE 

122  @22,56  GET  CHOICE  PICT  "l" 

123  READ 

124  * 

125  *  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "N",  "P"  OR  "X" 

126  * 

127  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

128  IF  .NOT.  (Q IO ICE  =  "C"  .OR.  CHOICE  =  ”x" )  THEN 

129  SET  COLOR  70  W+/R,W+/R 

130  @  24,24  SAY  "  Response  must  be  either  C  or  X  " 

131  DO  DEI,  AY 

132  S70RE  "C"  70  CHOICE 

133  END IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  -  "x" ) 

134  SET  OOIDR  70  Rf/B,R+/B 

135  a  22,56  GET  CHOICE  PICT  "l" 

1 36  READ 

137  ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

138  * 

139  SET  CDIDR  70  W/B,  W/B 

140  a  22,20  SAY  SPACE! 50) 

141  IF  CHOICE  =  "C"  THEN 

142  STORE  1  t  VAL( LCNHWRATE)  ID  LCNI IWRAT'E 

143  STORE  1  *  VAi,( LCNSWRATE)  TO  LCNSWRATE 

144  STORE  1  t  VAL ( SNETSWRATE )  TO  SNETSWRATE 

145  STORE  1  *  VAL(UPLIIT)  TO  UPLIFT 

1 46  ELSE 

147  SEr  CONSOLE  OFF' 

148  C1DSE  DATABASES 

149  ERASE  TEMIONE.DBF 

150  ERASE  7TJ4PONE.NUX 
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151 

152 

153 

i  r  a 
i  .J4* 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 


ERASE  TEMPTWO.  DBF 
ERASE  TEMFTHRE.DBF 
ERASE  TEMPFOUR.DBF 

rpn  mucnr  t?  nu 

SET  03 LOR  TO  W/B,  W/B 
La  24,0  SAY  SPACE (80) 

RELEASE  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SITES 
RETURN 

END  IF 
* 

*  INFORM  THE  USER  THAT  THERE  WILL  BE  A  SLIGHT  DELAY 

+ 

SEr  COLOR  TO  W+/R ,  W+/R 

STORE  "  Creating  the  MAINTENANCE  DELIVERY  ORDER  may  take  up  to  10 
"minutes.  PLEASE  WAIT  "  TO  MESSAGE 
@  24,0  SAY  MESSAGE 
SELECT  1 
USE  TEMPTWO 
SELECT  2 
USE  DESCRIP 
SELECT  TEMPTWO 

JOIN  WITH  DESCRIP  'TO  TEMPTHREE  FOR  FEAiURENO  -  UESCRIP- >  FEAIUREFX  ) 
SELECT  3 
USE  1EMPTHRE 
GO  TOP 


176 

REPLACE 

ALL 

MO 

MAINT 

wrni 

BASEMA INT* LCNI 1WRATE 

[TOR 

EA1URENO  - 

"  )  ■> 

0100" 

177 

FEATURENO  <  "420400" 

1  78 

G.)  'TOP 

179 

REPLACE 

ALL 

MO 

MAINT 

win  i 

BASEMA INT*  LCNSWRATE 

FUR 

FEAIURENO  - 

"55 

0801  " 

180 

REPLACE 

ALL 

MO 

MAINT 

WITH 

BASEMA INT*LCNSWRATE 

FOR 

FEATURENO  = 

"550901 " 

1  81 

REPLACE 

ALL 

MO‘ 

MAINT 

WITH 

BASEMA INT*LCNSWRATE 

FOR 

FEATURENO  - 

"551 noi " 

182 

REPLACE 

ALL 

MO 

MAINT 

WITH 

BASEMA I NT* LCNSWRATE 

FOR 

FEATURENO  = 

n  r  r 

5  j 

1  101" 

183 

REPLACE 

ALL 

MO" 

MAINT 

WITH 

BASEMA  I  NT*  I/CNSWRATE 

FOR 

FEAIURENO  - 

MrxS 

1  201" 

184 

REPLACE 

ALL 

MO* 

MAINT 

WITH 

BASEMA INT* LCNSWRATE 

A  )R 

■'FAiURENO  = 

Mr.rf 

1  301" 

185 

REPLACE 

ALL 

MO* 

MAINT 

win  I 

BASEMA INT* SNETSWRATE 

FOR 

FEATURE! H 1 

_  '  •  r 

50  710 

186 

REPLACE 

ALL 

MO 

MAINT 

WITH 

BASEMA INT*SNETSWRATE 

FOR 

FEATURE!* ) 

-  ”5 

5071  1 

187 

REPIACE 

ALL 

MO* 

MAINT 

WITH 

BASEMA  I  NT* SNETSWRATE 

FOR 

FEAIURENO 

=  ”5 

5080  3 

188 

REP1ACE 

ALL 

MO 

MAINT 

WITH 

BASEMA INT*SNETGWRATE 

FOR 

FEATURE!*.) 

r  "r, 

S0«0  5 

189 

REPLACE 

ALL 

MO 

MAINT 

WITH 

BASEMA I NT* SNETSWRATE 

I  X  <R 

F  HATVRMK ) 

_  1  ’ 

5  100) 

1  90 

REP!  ACE 

ALL 

MO* 

MAINT 

wrni 

BASEMA I  Nr ‘SNETSWRATE 

!•»  >R 

FEA  TOKEN  ) 

n  r, 

5 1  in? 

1  91 

REPLACE 

ALL 

MO* 

*MA  INT 

WITH 

BASEMA  I  NT*  SN1TSWRA'  IE 

I'f  )R 

FEAP 1RFTX ' 

- 

5  1  ,'n  >, 

1  92 

REPLACE 

ALL 

MO 

MAINT 

wrni 

BASEMA  I  NT*SNFTSWKATE 

[  X  )R 

FEATURED  i 

-  1  f 

5  I  50  5 

193 

REPLACE 

ALL 

MO* 

‘MAINT 

wrni 

BASEMA 1 1  IT*  SNETSWRAIE 

FOR 

FEAP  IRE! I' ) 

-  M  r, 

r.1  K 14 

194 

REPLACE 

ALL 

MU 

MAINT 

wrni 

BASEMA  INT*  SNETSWRATE 

FOR 

FEAiURENO 

-  "  rx 

TO  40  5 

195 

REPLACE 

ALL 

MO* 

MAINT 

wrni 

BASFMA  INT*  SNETSWRA  IE 

FOR 

FEATURE!*  x 

M  r 

TO  DO 

196 

REP  I  ACE 

ALL 

MO* 

MAINT 

WITH 

BASEMA  I  NT*SNE1'SWRATE 

IX  )R 

FEATURING 

M  r 

51  LiD 

1  97 

REPLACE 

ALL 

MO 

MAINT 

wrni 

BASEMA  I  NT*  SNETSWRATE 

(TOR 

FEAIURENO 

*  *  n. 

5  1  ”09 

198 

REPLACE 

AIL 

MO* 

MAINT 

WITH 

BASEMA  I  NT*SNK’I'SWRATE 

I-X  >R 

FEATURE!* ' 

-  f '  r. 

r  1  50  > 

1  99 

REPIACE 

ALL 

MO" 

Mi  INT 

wrni 

BASEMA  I  NT* SNETSWRATE 

I-x  >R 

FEAP  :R1N<  i 

1  ’  r 

T  i  oo-l 

200 

SELECT  i 

.AND 


201  USE  TED 

202  COPY  STRUCTURE  TO  TEMPFOUR 

203  CLOSE  DATABASES 

204  USE  TEMPFOUR 

205  APPEND  FROM  TEMPTHRE 

206  GO  TOP 

207  REPLACE  ALL  MAINT_MOS  WITH  12 

208  REPLACE  ALL  MAINT_FAC  WITH  UPLIFT 

209  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "550801" 

210  REPLACE  ALL  MAINT_FAC  WITH  .1  FOR  FEATURENO  =  "550901" 

211  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551001" 

212  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551101" 

213  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551201" 

214  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551301" 

215  REPLACE  ALL  TOT_MAINT  WITH  MA INT_F AC* MO_MA INT* MA 1NT_M0S 

216  REPLACE  ALL  OOMP_DT_CR  WITH  ( ( (UNIT_PRICE  +  UNIT_INSTA) /48 )  +  ; 

217  (MD_MAINT  *  MAINT_FAC) )  *  .005 

218  REPLACE  ALL  SYS_DT_CR  WITH  (CJT*MO_MAINT*MAINT_FAC) 

219  REPLACE  ALL  T0T_MAINT  WITH  TOT_MAINT*OTY  FOR  FEATURENO  >  "010200"  .AND. ; 

220  FEATURENO  <  "510101" 

221  REPLACE  ALL  UNIT_PRICE  WITH  0 

222  REPLACE  ALL  TOTJPRICE  WITH  0 

223  REPLACE  ALL  UNITJNSTA  WITH  0 
224,  REPLACE  ALL  TOT_INSTAL  WITH  0 

225  COPY  TO  NEWDO.PRN  DELIMITED 

226  * 

227  *  ERASE  ALL  TEMPORARY  DATABASES  AND  INDICES  CREATED  DURING  'll  IE  PROGRAM 

228  * 

229  SET  CONSOLE  OFF 

230  CLOSE  DATABASES 

2  3 1  ERASE  TEMPONE . DBF 

232  ERASE  TEMPTYJO . DBF 

233  ERASE  TEMPTHRE. DBF 

234  ERASE  TEMPFOUR . DBF 

235  ERASE  TEMPONE . NDX 

236  SET  CONSOLE  ON 

237  * 

238  *  RETURN  TO  CALLING  PROGRAM 

239  * 

240  SET  COLOR  TO  W/B,  W/B 

241  a  24,0  SAY  SPACE! 80) 

242  RELEASE  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SPIES 

243  RETURN 

244  *****M**»************t******»t*tn**t»*t»*»t*..*t**.<*t***.ttt*-t(t**t* 


APPENDIX  B 


MAINTENANCE  MANUAL 


Page  184 


Page  1 


MANULADD.PRG  Program  Listing 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  MANULADD.PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

*  INPUT  FILES 

* 

*  CALLED  BY 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
liDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

ADD  NEW  MANUALS  TO  THE  MANUAL  DATABASE  FILE. 

MANUAL. DBF,  MANULSIT. NDX 

MANULCMD . PRG 


*  MODULES  CALLED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM ,  LOSITE 

* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  FEA'IURES,  GETOUT, 

*  MCLIN,  MANDESCRPT,  MDESC1PT,  MESSAGE,  MFEAT, 

*  MSITE,  NOFIND,  NOSITE,  SUES 

* 

*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <======= 

* 


*  CASE  SELECTION  =  1  ADD  A  NEW  MANUAL  DESCRIPTION 

* 


SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  MANUAL 
GO  TOP 

SET  OJ LOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

ia  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 
DO  DELAY 
RETURN 
ENDIF 
SELECT  1 

USE  MANUAL  INDEX  MANULSIT 


??  FLASH  +  "S.MANUAIS.SCR/" 

@  24,0  SAY  SPACE (80) 

@  22,10  SAY  SPACE! 60) 

SET  COLOR  TO  CJIU/B,  GR»/H 
0  6,28  SAY  "  Last  " 

SET  COLOR  TO  R  +  /  ,  IU/ 
a  3,26  SAY  "  MANUAL.  ADDITION  lY JRMAT  " 

SET  CDIOR  TO  W+/B,  W+/B 

■3  22,23  SAY  "Enter  C  to  oont  inne  or  X  to  <•:<)(  : 
SET  COLOR  TO  Rt/B,  Rr/B 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


@  22,29  SAY  "C" 

<a  22,46  SAY  "X" 

* 

*  GENERATE  STATUS  MESSAGES 

* 

STORE  '  Enter  a  Site  Number  between  1  +  LOSITE  +  1  and  '  +; 

HISITE  +  '  for  the  Manual  Description  Addition  1  TO  SITES 
STORE  '  Enter  a  Feature  Number  (  1  +  LOFNUM  +  1  -  '  +  HIFNUM  +')'+; 

' for  the  Manual  Description  Addition  '  TO  FEATURES 
STORE  SPACE (20)  +  'Enter  the  Manual  Description  to  be  Added'  +; 

SPACE (20)  TO  MANDESCRPT 

* 

CO  WHILE  .T. 

SET  COLOR  TO  R+/B,  R+/B 
(a  6,47  SAY  RECNO(  )  PICT  "9999" 

♦ 

*  CLEAR  SCREEN  AND  SET  INITIAL  VALUES  FOR  VARIABLES  TO  BE 

*  ADDED  TO  THE  FILE.  THE  M  PREFIX  INDICATES  MEMORY  VARIABLES 

*  DISTINGUISHING  THEM  FROM  THEIR  CORRESPONDING  DATABASE  FIELDS. 

* 

STORE  '  'TO  MFEAT 

STORE  '  '  TO  MMANDESC 

* 

SET  COLOR  TO  /W,  /W 
I?  24,0  SAY  SITES 

* 

*  ENSURE  THAT  THE  SITE  NUMBER  IS  A  VALID  SITE 

* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSLTE 
a  9,45  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  IIISITE)  THEN 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  *■  LOSITE  *  1  and  ’  ♦; 

HISITE  +  ’  '  TO  ERROR 
4  24,22  SAY  ERROR 
DO  DELAY 

SEr  COLOR  TO  /W,  /W 
9  24,0  SAY  SITES 
LOOP 

ELSE 

GO  TOP 

FIND  XMSITE 

IF  BDF( )  -  .T.  THEN 

SEC  GDI  OR  'TO  W/B,  W/H 
a  24,0  SAY  SPACE! 80) 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 
1  16 
1  1  7 
118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 
1  32 
1  33 

134 

135 
1  36 
1  37 
1  38 
1  39 

140 

141 

142 
1  43 
144 
1  45 
1  46 
1  47 


SETT  COLOR  TO  W+/R,  W+/R 

STORE  "  No  records  exist  for  site  "  +  MSITE  +; 

",  try  another  site  "  to  NOSITE 

@  24,16  SAY  NOSITE  j 

DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  SITES 
STORE  "99"  TO  MSITE 
LOOP 

ELSE 

EXIT  I 

ENDIF  EOF ( )  =  .T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDDO  WHILE  .T. 

* 

GO  BOTTOM 

SET  COLOR  TO  /W,  /  W  j 

<4  24,0  SAY  FEATURES 

SET  COLOR  TO  /BR.  /BR 

STORE  0  TO  NOFIND 

STORE  "N"  TO  GETOUT 

* 

*  ENSURE  THAT  THE  FEATURE  IS  A  VALID  FEATURE 

* 

DO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

* 

*  IF  THE  USER  HAS  MADE  THREE  ATTEMPTS  TO  SPECIFY  A  VALID  . PRN  ~tle 

*  NAME  AND  HAS  NOT  BEEN  SUCCESSFUL,  ASK  HIM/HER  IF  THEY  DESIRJ 

*  EXIT  THIS  PROCESS. 

* 

IF  NOFIND  =  3  THEN 

SET  COLOR  TO  W+/13,  W+/H 

3  19,15  SAY  "  Do  you  want  to  oy.it  this  process?  (Yes  or  No):  " 

SET  COLOR  TO  Rf/B,  R  +  /I3 
d  19,51  SAY  "Y" 

@  19,58  SAY  "N" 

STORE  "Y"  'IO  GETOUT 
a  19,63  GET  GETOUT  PICT  " ! " 

READ 

* 

DO  WHILE  .NOT.  (GETO1.IT  =  "N"  ."R.  -  "v"  > 

IF  .NOT.  (GETOUT  =  "N"  ."R.  GERKT  -  "y"  i  :i :i 
SET  COLOR  IO  W+/R,  W>/P 

a  24,24  SAY  "  Response  must  t*>  “i  (!:>•>  N  t  V  " 

DO  DELAY 

STORE  "Y"  'TO  GET  117' 

ENDIF 


148 
1  4" 
150 


SET  COLOR  TO  Kf/B,  B 
a  19,63  GET  GET  KiT  TPT  "  !  " 
READ 
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ENDDO 

SET  COLOR  TO  W/B,  W/B 
4  19,10  SAY  SPACE( 65 ) 

It  GEiOUT  =  ::Y"  THEN 
EXIT 

ELSE 

STORE  0  TO  NOFIND 
SET  COLOR  TO  /W,  /  W 

id  2-1,0  SAY  FEATURES 
LOOP 
END  IF 
ENDIF 

IF  GETOUT  =  "Y"  THEN 
EXIT 
ENDIF 

SET  COLOR  TO  /BR,  /BR 
SIORE  LOFNUM  TO  MFEAT 
a  12,45  GET  MFEAT  PICT  '999999' 

READ 

ENSURE  THAT  THE  FEATURE  NUMBER  ENTERED  BY  'HIE  USER  IS  VALID 

IF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM1  THEN 
SET  COLOR  TO  W/B,  W/B 
d  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  DJFNUM  + ; 

'  and  '  *■  HIFNUM  *■  '  '  TO  ERROR 
a  24,18  SAY  ERROR 
DO  DELAY 

SET  COI UR  TO  /W,  /W 
1  24,0  SAY  FEATURES 

ELSE 

SE1LCT  2 

USE  EOUIP  LNDEX  El-'EAT 

GO  TOP 

FIND  & MFEAT 

IF  EOF ( )  =  .T.  THEN 

NOFIND  =  NOFIND  +  1 
SET  COIUR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W*/R,  W+/R 

STORE  "  Feature  Number  "  +  MFEAT  + ; 

"  does  not  exist,  try  again  "  TO  MESSAGE 
IK  NOFIND  *  3  WEN 

1  24,1b  SAY  MESSAGE 
IX)  DEI  AY 

SI-71’  OT*«  TO  /W,  /W 

■a  24,0  SAY  FEATURES 
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201 

202 

203 

on  a 

205 

206 

207  * 

208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 
21  j 
220 
221 
222 

223  * 

224 

225 

226 

227 

228 
229 
2  30 

231  * 

232 

233  * 

234  * 

235  * 

236 

237 

238 

239 

240 

241  | 

242 

243 

244  * 

245  * 

246  * 

247 

248 

249 

250  i 


END  IF 

STORE  "999999"  TO  MFEAT 
SELECT  1 

ENDIF  BuF( )  =  .T. 

ENDIF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

ENDDO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

SET  COLOR  TO  W+/B,  W+/B 
-a  24,0  SAY  SPACE (80) 

IF  GETOUT  =  "V"  THEN 
EXIT 
ENDIF 
SELECT  3 

USE  DESCRIP  INDEX  DESCRIP 

GO  TOP 

FIND  & MFEAT 

STORE  CLIN  TO  MCLIN 

STORE  DESCIPT  TO  MDESCIPT 

SELECT  1 

SET  COLOR  TO  /BR,  /BR 
&  13,45  SAY  MCLIN  PICT  "9999" 

<a  14, 45  SAY  MDESCIPT  PICT  "!!!!!!  i !!!!!!!!!!!!!  J  i !!!!!!!! " 

SET  COLOR  TO  /W,  /W 
ia  24,0  SAY  MANDESCRPT 
SET  COLOR  TO  /BR,  /BR 

a  17, 45  GET  MMANDESC  PICT  "!!!!!!!!!!!!  1  !!!  1  !!!!!!! " 

READ 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

IF  .NOT.  ( MANLDESC  =  MMANDESC)  THEN 

ASK  THE  USER  IF  HE/SHE  DESIRES  'TO  ACCEPT  'll  IE  CHANGES 

SET  COLOR  TO  W+/B,  W+/B 

'a  20,12  SAY  "Do  you  want  to  accept  the  change?  (Yes  or  No):" 
SET  COLOR  TO  R+/B,  R+/B 
<a  20,49  SAY  "Y" 
a  20,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
■a  20,62  GET  ACCEPT  PICT  "l" 

READ 

ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

IF  .HOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  'UK) 

SET  COIjOR  40  Wi/R,  W+/R 

a  24,24  SAY  "  Response  must  be  eittier  N  or  Y  " 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260  * 
261  * 
262  * 

263 

264 

265 

266 

267 

268 

269  * 

270 

271  * 

272 

273 

274 

275 

276  * 

277  * 

278  * 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290  * 

291  * 


DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/E,  R+/B 
9  20,62  GET  ACCEPT  PICT 
READ 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
3  20,10  SAY  SPACE( 55) 

IF  ENTRIES  ARE  CORRECT,  ADD  THEM  TO  DATABASE. 

IF  ACCEPT  =  "Y" 

APPEND  BLANK 

REPLACE  SITENO  WITH  MSITE 
REPLACE  FEATURENO  WITH  MFEAT 
REPLACE  MANLDESC  WITH  MMANDESC 
ENDIF 

ENDIF 

SETT  COLOR  TO  R  +  /B,  Rt/B 
STORE  "C"  TO  QIOICE 
9  22,58  GET  CHOICE  PICT  "i" 

READ 

ENSURE  THAT  'HIE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N1 

DO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  CHOICE  =  "x" ) 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  -  "x" )  THEN 
SErr  COLOR  TO  W+/R,  W+/R 

9  24,24  SAY  "  Response  must  I*'  either  (’  ot 
LX)  DEL/AY 

STORE  "C"  TO  CHOICE 
ENDIF 

SET’  COLOR  TO  R  +  /B,  R*/B 
@  22,58  GET  QIOICE  PICT 
READ 
ENDDO 

SKIP  TO  THE  NEXT  RECORD  TO  HE  REVIEWED 

IF  CHOICE  =  "C"  THEN 

STORE  "  "  TO  MCLIN 

STORE  SPACE (30)  TO  MDESCIPr 
STORE  SPACE (26)  TO  MMANDESC 
SET  COLOR  TO  /BR,  /UR 
■a  12,45  SAY  " 

a  13,45  SAY  MCLIN  PICT’  "9999" 

a  14,45  SAY  MDESCIPI’  PICT"!!!!!!!!!!!!!:!!!!!!!;; 
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301  a  17,45  SAY  MMANDESC  PICT  "!!!!!!!!!!!!!!!!!  i  !!  1  !  i  ! " 

302  SKIP 

303  END IF 

304  * 

305  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

306  * 

307  IF  CHOICE  =  "X" 

308  EXIT 

309  ENDIF 

310  * 

31 1  ENDDO  WHILE  .T. 

312  * 

313  *  RETURN  TO  CALLING  PROGRAM. 

314  * 

315  RELEASE  ALL  LIKE  M*,  ACCEPT,  CHOICE,  ERROR,  FEATURES,  GETOUT, ; 

316  NOFIND,  NOSITE,  SITES 

317  CLOSE  DATABASES 

318  REIURN 

319  X^#*##*********#********************************************************* 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1  2 

13 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  191 
Page  1  MANULCMD.PRG  Program  Listing 


*  PROCDURE  MANULCMD.PRG 

* 

*  AUTHORS  : 

* 

* 

* 

* 

*  PURPOSE  : 

* 

* 

* 

*  INPUT  FILES  : 

* 

*  OUTPUT  FILES  : 

* 

*  CALLED  BY  : 

* 

*  MODULES  CAILED  : 

* 

* 

*  LOCAL  VARIABLES: 

* 

*  DATE  LAST  TIME  MODIFIED  ============>  23  DECEMBER  1985  <======== 

* 

*  DISPLAY  THE  PROCESS  MENU  TO  HIE  USER  AND  WAIT  FOR  THE  SELECTION. 

* 

STORE  "1"  TO  SELEKT 
DO  WHILE  SELEKT  <  "5" 

SET  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W.MANULCMD/" 

SET  CONSOLE  OFF 
WAIT  TO  SELEKT 
SET  CONSOLE  ON 

* 

*  PROCESS  ROUTINE  BASED  ON  'IHE  USER'S  SELECTION. 

* 

DO  CASE 

* 

*  CALL  'HIE  MANUAL  ADD  PROGRAM. 

CASE  SELEKT  =  "l" 

DO  MANULADD 

* 

*  CALL  THE  MANUAL  UPDATE  PROGRAM. 

CASE  SELEKT  =  "2" 

DO  MANULUPD 

♦ 

*  CALL  MANUAL  DELETION  PROGRAM. 

CASE  SELEKT  =  "3" 

DO  MANULDEL 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  THE  OPPORTUNITY  TO  ADD  A  MANUAL 
RECORD,  UPDATE  AN  EXISTING  RECORD,  DELETE  AN  EXISTING 
RECORD  OR  REVIEW  CURRENT  RECORDS. 

NONE. 

NONE. 

MA INMENU. PRG 

MANULADD. PRG,  MANULUPD . PRG ,  MANULDEL . PRG , 

MANULREV . PRG 
>».  , 

SELEKT 
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51  * 

52  *  CALL  MANUAL  REVIEW  PROGRAM. 

53  CASE  SELECT  =  "4" 

54  DO  MANULREV 

55  * 

56  *  RETURN  TO  THE  MAIN  MENU  PROGRAM. 

57  CASE  SELECT  =  "5" 

58  * 

59  ENDCASE 

60  * 

61  ENDDO  (WHILE  SELECT  <  "5") 

62  * 

63  *  RETURN  TO  THE  CALLING  PROGRAM 

64  * 

65  RETURN 

0g  ************************************** *****************************  ****** 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 
1  4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
60 


*  PROCEDURE  MANULDEL.PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

*  INPUT  FILES 

* 

*  CALLED  BY 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

DELETE  MANUAL  RECORDS  FROM  THE  MANUAL  DATABASE  FILE. 
MANUAL. DBF,  MANULS IT . NDX 
MANULCMD . PRG 


*  MODULES  CALI  .ED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM,  LOSITE 

* 


*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  FEATURES,  F IRST_REC , 

*  LAST_REC,  MCLIN,  MDESCIPT,  MESSAGE,  MFEAT, 

*  MKEY,  MMANDESC ,  MSITE,  PACKEM,  SUES 

* 


*  DATE  LAST  TIME  MODIFIED  ==========>  24  DECEMBER  1985  <========== 

* 

*  CASE  SELECTION  *=  3  DELETE  AN  EXISTING  MANUAL  RECORD 

SET  DELETED  ON 
SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  MANUAL 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  OULOR  TO  W+/R,  W+/R 

a  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 

DO  DELAY 
RETURN 
END1F 
SELECT  1 

USE  MANUAL  INDEX  MANULS IT 
GO  BOITOM 

STORE  RECNO(  )  TO  i  AST  RFC 


??  FI  ASH  i  "S. MANUALS. SCR/" 

M  24,0  SAY  SPACE (80) 
a  22,10  SAY  SPACE ( 60 ) 

SET  COLOR  TO  R+/  ,  R*  / 

4  3,26  SAY  "  MANUAL  DEI ET ION  FORMAT  " 

SET  COIOR  TO  W+/B,  Wt/B 

"*  22,23  SAY  "Enter  C  to  continue  or  X  to  exit:” 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79  I 

80  | 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SET  COLOR  TO  R+/B,  R+/B 
(3  22,29  SAY  "C" 

<a  22,46  SAY  "X" 

STORE  SPACE! 9)  +  "Enter  the  Site  Number  for  the  Manual  "  +  ; 

"Description  to  be  Deleted"  +  SPACE! 9)  TO  SITES  ^ 

STORE  SPACE! 10)  +  "Enter  the  Feature  Number  for  the  Manual 
"Description  Deletion"  +  SPACE! 10)  TO  FEATURES 
STORE  "Records  marked  for  deletion  have  been  deleted  and  "  + 
"CAN  NOT  be  recovered"  TO  PACKEM 
STORE  "Are  you  sure  you  want  to  delete  this  description? 
"(Yes  or  No):"  TO  MESSAGE 

* 

SET  COLOR  TO  /W,  /W 
fl  24,0  SAY  SITES 
* 

♦  ENSURE  THAT  THE  SITE  NUMBER  IS  A  VALID  SITE 

* 

STORE  '  '  TO  MSITE 

DO  WHILE  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  H1SITE) 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSITE 
@  9,45  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

SET  COLOR  TO  W/B,  W/B 
fl  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  + ; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
La  24,22  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
(3  24,0  SAY  SITES 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  EOF! )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  1  No  record  for  site  number  '  +  MS  HE  *■ ; 

'  exists,  try  again  '  TO  ERROR 
9  24,16  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
9  24,0  SAY  SITES 
STORE  '99'  TO  MS  FIE 
ENDIF  EOF! )  =  .T. 

END IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <  =  HISITE) 


+  ; 


*  V  v  w  '~J*  •<.'*'■.1 
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ENDDO  WHILE  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
* 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

STORE  "  "  TO  MFEAT 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  FEATURES 
* 

*  ENSURE  THAT  THE  FEATURE  IS  A  VALID  FEATURE 


DO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
SET  COLOR  TO  /BR,  /BR 
STORE  LOFNUM  TO  MFEAT 
@  12,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

SET  OOLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  OOLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOFNUM  + ; 

'  and  '  +  HIFNUM  +  '  '  TO  ERROR 
@  24,18  SAY  ERROR 
UO  DELAY 

SET  OOLOR  TO  /W,  /W 
@  24,0  SAY  FEATURES 
LOOP 

ELSE 

STORE  MSITE  +  MFEAT  TO  MKEY 

GO  TOP 

FIND  &MKEY 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
to  24,0  SAY  SPACE (80) 

SET  COLOR  IT)  W+/R,  W+/R 

STORE  '  No  record  exists  for  feature  number  ' 

1 ,  try  again  '  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
J  24,0  SAY  FEATURES 
STORE  '999999'  TO  MFEAT 
END IF  EOF ( )  =  .T. 

ENDIF  .NOIL  ( MFEAT  >=  1 OFNUM  . AND .  MFEAT  <=  HIFNUM) 
ENDDO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  =  HIFNUM) 

♦ 

SET  OOLOR  TO  W/B,  W/B 
la  24,0  SAY  SPACE ( 80  ) 

* 

DO  WHILE  .T. 

SET  COLOR  IT)  R  +  /B,  Ri/Ii 


*  MFEAT  +  ; 
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151  @6,47  SAY  RECNOO  PICT  "9999" 

1 52  STORE  FEATURENO  TO  MFEAT 

153  SELECT  2 

154  USE  DESCRIP  INDEX  DESCRIP. NDX 

155  FIND  & MFEAT 

156  STORE  CLIN  TO  MCL1N 

157  STORE  DESCIPT  TO  MDESCIPT 

158  SELECT  1 

159  SET  COLOR  TO  /BR,  /BR 

160  @9,45  SAY  SITENO  PICT  '99' 

161  @12,45  SAY  FEATURENO  PICT  '999999' 

162  @13,45  SAY  MCI. IN  PICT  "9999" 

163  @14,45  SAY  MDESCIPT  PICT  "!!!!! J I!!!!!!!!!!!!!!  J  !!!!!!!!  " 

164  @17,45  SAY  MANLDESC  PICT  "!!!!!!!!!!!!!!!!!!  i !!!!!!! " 

165  SET  COLOR  TO  W/B,  W/B 

166  @  24,0  SAY  SPACE) 80) 

167  * 

168  *  ASK  'HIE  USER  IF  UE/SHE  IS  SURE  ABOUT  'HIE  DELETION 

169  * 

170  SET  COLOR  TO  W+/B,  W+/B 

171  @  20,06  SAY  MESSAGE 

172  SET  COLOR  TO  R+/B,  R+/B 

173  @20,58  SAY  "Y" 

174  @  20,65  SAY  "N" 

175  STORE  "N"  TO  ACCEPT 

176  @  20,70  GET  ACCEPT  PICT  "j" 

177  READ 

178  * 

179  *  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

180  * 

181  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

182  IF  .NOT.  (ACCEPT  =  "N”  .OR.  ACCEPT  =  "Y")  HEN 

183  SET  COLOR  TO  W+/R,  W+/R 

184  @24,24  SAY  "  Response  must  be  either  N  or  Y  " 

185  DO  DELAY 

186  STORE  "N"  TO  ACCEPT 

187  ENDIF 

188  SET  CO UJR  TO  Rt-/B,  R+/B 

189  @  20,70  GET  ACCEPT  PICT 

190  READ 

191  ENDDO 

192  SET  COLOR  TO  W/B,  W/B 

193  <1  20,05  SAY  SPACE*  70) 

194  * 

195  *  IF  ENTRIES  ARE  CORRECT ,  DELETE  T1EM  FROM  'II IE  DATABASE, 

196  *  IF  NOT  RECOVER  THEM 

197  * 

198  IF  ACCEPT  =  "Y" 

1 99  DELETE 

200  ENDIF 
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SETT  QDLOR  TO  R  +  /B,  R  +  /B 
STORE  "C"  TO  CHOICE 
@  22,58  GEr  CHOICE  PICT  "!" 

READ 

* 

*  ENSURE  'll  1AT  'll  IE  USER'S  RESPONSE  IS  EITHER  "C"  OR  "a" 

* 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" )  illEN 
SET  (TOLOR  TO  W+/R,  W+/R 

0  24,24  SAY  "  Response  must  t:>o  either  C  or  X  " 
DO  DELAY 

STORE  "C"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
(4  22,58  GEr  CHOICE  PICT 
READ 
ENDDO 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 


IF  RECNO(  I  =  LAST_REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF 

* 

*  USER  HAS  DECIDED  TO  EXIT  'II IE  REVIEW 

* 

IF  CHOICE  =  "X" 

SET  COLOR  TO  Wt/R,  W+/R 
fl  24,0 

0  24,6  SAY  PACK EM 
SET  OOLOR  TO  W/B,  W/B 
PACK 
EXIT 
ENDIF 

* 

ENDDO  Will  IE  .T. 

* 

*  RETURN  TO  CALLING  PROGRAM. 


RELEASE  ALL  LIKE  M+ ,  AOCEIT,  CHOICE,  ERROR,  lEA'IURLS ,  FIRST  RFC,; 

I  AST  REC,  PACKEM,  SPIES 
CT/ISE  DATABASES 
RETURN 


3  34 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1  1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  MANULREV. PRG 

* 

*  AUTHORS 

* 

* 

♦ 

* 

*  PURPOSE 

* 

* 

*  INPUT  FILES 

* 

*  CALLED  BY 

* 

*  MODULES  CALLED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HIFNUM,  I1ISITE,  LOFNUM,  LOS1TE 

* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE.  CURRENTNO,  EOF,  ERROR,  FIRST_R£C, 

*  LAST_REC,  MCLIN,  MDESCIPT,  MFEAT,  MSITE,  TOF 

* 

*  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <========== 

* 

*  CASE  SELECTION  =  4  REVIEW  EXISTING  MANUAL  RECORDS 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  MANUAL 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(?  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 

DO  DELAY 
RETURN 
ENDIF 

??  FLASH  +  "S. MANUALS. SCR/" 

(3  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  R+/  ,  Rv/ 
a  3,26  SAY  "  MANUAL  REVIEW  FORMAT  " 

SELECT  1 

STORE  "  Enter  00  to  start  at  TOF,  99  to  start  at  EOF  or  a  site  number  "  *! 

"between  "  +  LOSITE  +  "  and  "  +  HISITE  +■  "  "  TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
(4  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 

DO  WHILE  .NOT.  (  (MS I'TE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  ^  '0‘f> 
SET  COLOR  TO  /BR  ,  /BR 
STORE  '00'  TO  MSITE 


:  LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

:  TO  ENABLE  THE  USER  TO  REVIEW  ALL  THE  RECORDS  IN 
THE  MANUAL  DATABASE 

:  MANUAL. DBF,  MANULS IT . NDX 

:  MANULCMD. PRG 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


(a  09,45  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99')  THEN 
SEr  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  '  +  LOS  TIL  +  '  and  '  +; 

HISITE  +  ’ ,  Zero  ( 00 )  or  99  '  TO  ERROR 

ia  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
(a  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 
USE  MANUAL 
IF  MSITE  =  '00'  THEN 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_R£C 
GO  TOP 

STORE  RECNO( )  TO  F1RST_REC 

ELSE 

GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO( )  TO  LAST_REC 
END IF  MSITE  =  ' 00 ' 

EXIT 

ELSE 

USE  MANUAL  INDEX  MANULSIT 
GO  TOP 
FIND  & MSITE 
IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 

SEr  COIjOR  TO  W+/R,  W+/R 

STORE  "  No  records  exist  lor  site  number  "  +  MSITE  ♦ ; 

",  try  again  "  TO  ERROR 
<a  24,16  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
<4  24,0  SAY  MESSAGE 
STORE  '80'  TO  MSITE 
UXJP 

ELSE 

EXIT 
END  IF 
END1F 
END  IF 

ENDDO  WHILE 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
1  38 
1  39 

140 

141 

142 

143 

144 

145 

146 

147 
1  48 

149 

150 


STORE  SPACE (10)  +  ’Enter  "00  "  to  start  at  TOF  or  a  six  digit  '  +  ; 

’feature  number1  +  SPACE(IO)  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SETT  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  ’00  ’TO  MFEAT 
@  12,45  GET  MFEAT  PICT  ’999999’ 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNTJM)  .OR.; 

MFEAT  =  ’ 00  ’ )  THEN 

SET  COLOR -TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  ‘  +  LOFNUM  +  1  and  1  + ; 

HIFNUM  +  ’  or  Zero  (00)  ’TO  ERROR 
@24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 
IF  MFEAT  =  ’99  ’  THEN 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  ’  Response  must  be  between  1  +  IjOFNUM  +; 

’  and  ’  +  HIFNUM  +  ’  or  Zero  (00)  ’  TO  ERROR 
@24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

END IF  MFEAT  =  ’99 

STORE  MSITE  +  MFEAT  TO  MKEY 

USE  MANUAL  INDEX  MANULS IT 

GO  TOP 

FIND  5 MKEY 

IF  EOF( )  -  .T.  THEN 

SCT  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  Wt/R 

STORE  "  No  record  with  feature  numlx^r  "  ♦  Ml-TAT  *  ; 

"  exists,  try  again  "  TO  ERROR 
■a  24,12  SAY  ERROR 
DO  DELAY 

SET  OOUJR  TO  /W,  /W 


337 
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151 

@24,0  SAY  MESSAGE 

152 

LOOP 

153 

ELSE 

154 

EXIT 

155 

ENDIF  EOF( )  =  .T. 

156. 

ELSE 

157 

GO  TOP 

158 

EXIT 

1  59 1 

ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <  =  I1IFNUM) 

160 

ENDIF 

161 

ENDDO  WHILE  .T. 

162 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  HISITE) 

163 

* 

164 

SET  COLOR  TO  W/B,  W/B 

165 

24,0  SAY  SPACE (80) 

166 

STORE  "  At  beginning  of  records  for  site  number  "  *■; 

167 

MSITE  +  "  "  TO  TOF 

168 

STORE  "  At  end  of  records  for  site  number  "  +  MSITE 

II  II 

■f 

TO  EOF 

169 

DO 

WHILE  .T. 

170 

SET  COLOR  TO  R+/B,  R+/B 

171 

@  6,47  SAY  RECNOO  PICT  "9999" 

172 

* 

173 

* 

CLEAR  SCREEN  AND  SET  INITIAL  VALUES  FOR  VARIABLES 

TO  BE 

174 

* 

ADDED  TO  THE  FILE.  THE  M  PREFIX  INDICATES  MEMORY 

VARIABLES 

175 

* 

DISTINGUISHING  THEM  FROM  THEIR  CORRESPONDING  DATABASE 

FIELDS. 

176 

!  * 

177 

1  * 

178 

STORE  FEATURENO  TO  MFEAT 

179 

SELECT  2 

180 

USE  DESCRIP  INDEX  DESCRIP 

181 

FIND  8 MFEAT 

182 

STORE  CLIN  TO  MCLIN 

183 

STORE  DESCIPT  TO  MDESCIPT 

184 

SELECT  1 

185 

SET  COLOR  TO  /BR,  /BP. 

186 

(3  09,45  SAY  SITENO  PICT  "99" 

187 

@  12,45  SAY  FEATURENO  PICT’  "999999" 

188 

«  13,45  SAY  MCLIN  PICT  "9999" 

189 

3  14,45  SAY  MDESCIPT  PICT  "!!!!!!!!!!!  I  !!!  I  !  ! J !! ! 

Mill 

iii" 

190 

3  17, 45  SAY  MANLDESC  PICT 

i  i  i  i " 

191 

t 

192 

SET  COIjOR  TO  R*/B,  R  +  /B 

193 

STORE  "N"  TO  CHOICE 

194 

3  22,67  GET  CHOICE  PICT’ 

195 

READ 

1% 

i  * 

197 

* 

ENSURE  THAT  'HIE  USER’S  RESPONSE  IS  EITHER  "N" 

,  "P" 

OR  "X" 

198 

* 

199 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  -=  "P 

"  .OR 

.  CHOICE 

200 

IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  "P" 

.OR. 

CHOICE  - 

3  38 
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SET  COLOR  TO  W+/R,W+/R 

@  24,22  SAY  "  Response  must  be  either  N,  P  or  X  " 
DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
@  22,67  GET  CHOICE  PICT  "i" 

READ 

ENDDO 

★ 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  "N"  THEN 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  EOF ( )  =  .T.  THEN 
SKIP  -  1 

SEr  COLOR  TO  W+/R,  W+/R 
9  24,21  SAY  EOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
ia  24,21  SAY  EOF 
DO  DELAY 
ENDIF 

ENDIF  EOF( )  =  .T. 

ELSE 

IF  RECNO(  )  =  LAST_REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF  (MSITE  >=  IOS1TE  .AND.  MS  HE  <=  HISITE) 


*  SKIP  TO  THE  PREVIOUS  RECORD 


IF  0101(31  =  P"  'IIIEN 

STORE  REGNO ( )  'TO  CURRENTNO 

IF  (MS FIE  >=  LOSITE  . AND .  MSITE  <=  HISITE)  'IIIEN 
SKIP  -  1 

IF  BOF(  )  =  .T.  IIIEN 
GOTO  CURRENTNO 
SEr  COLOR  TO  W+/R,  W+/R 
a  24,16  SAY  'lOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  -  MS  HE)  THEN 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 


SKIP 

SET  COLOR  TO  W+/R,  W+/R 
'3  24,16  SAY  TOF 
DO  DELAY 
ENDIF 

ENDIF  BOF( )  =  .T. 

ELSE 

IF  RECNO(  )  =  FIRST_REC  THEN 
GO  BOTTOM 

ELSE 

SKIP  -  1 
ENDIF 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDIF  GIOICE  =  "p" 

* 

*  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

♦ 

IF  CHOICE  =  "X" 

EXIT 

ENDIF 

* 

ENDDO  WHILE  .T. 

* 

*  RETURN  TO  GALLING  PROGRAM. 

♦ 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  CURRENTNO,  EOF,  FIRST  REC,  LAST  REC 
CLOSE  DATABASES  ~  “  ' 

RETURN 

*4c  -4c  4c  4-  4c  4c  4c  >4"  -4c  4c  -4*  *4-  4c  4c  4*  4c  4c  4C4C4C4C4C4C4C4-  4-  4c  4c  4f  4c  4c  4c  4;  -4c  4c  ^  4c  4-  4c  4*  -4c  4  4  4  4c  ^  ^  4c  4.  ^  4^  4^  ^  ^  4.  4.  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 
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1  *  PROCEDURE  MANULUPD.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  ii.  BUCKLEY ,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  TO  ENABLE  II IE  USER  TO  UPDATE  SELECTED  RECORDS  IN 

9  *  THE  MANUAL  DATABASE 

10  * 

11  *  INPUT  FILES  :  MANUAL. DBF,  MANULS IT . NDX 

12  * 

13  *  CALLED  BY  :  MANULCMD . PRG 

14  + 

15  *  MODULES  CALI  ED  :  DELAY. PRG 

16  * 

17  *  GLOBAL  VARIABLE:  lilFNUM,  HISITE,  LOFNUM  LOSITE 

18  * 

19  *  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  EOF,  ERROR,  MCLIN,  MDATE , 

20  *  MDESCIPT,  MFEAT,  MSITE,  TOF 

21  * 

22  *  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <========== 

23  * 

24  *  CASE  SELECTION  =  2  UPDATE  AN  EXISTING  MANUAL  DESCRIPTION 

25  * 

26  SET  ESCAPE  OFF 

27  SET  TALK  OFF 

28  USE  MANUAL 

29  GO  TOP 

30  SET  COLOR  TO  W+/B,  W+/B,  B 

31  CLEAR 

32  IF  EOF ( )  =  .T.  THEN 

33  SET  COLOR  TO  W+/R,  W+/R 

34  a  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 

35  DO  DELAY 

36  RETURN 

37  ENDIF 

38  ??  FLASH  t-  "S. MANUALS. SCR/" 

39  a  24,0  SAY  SPACE! 80) 

40  SET  CII OR  TO  R*/  ,  R  +  / 

41  a  3,26  SAY  "  MANUAL  UPDATE  FORMAT  " 

42  SELECT  1 

43  STORE  "  Enter  00  to  start  at  TOF,  99  to  start  at  EOF  or  a  site  n\ir;:>'t  "  *; 

44  "lx?tween  "  *  LOSITF,  *■  "  and  "  *  HISITE  f  "  "  TO  MESSAGE 

45  SET  COIDR  'TO  /W,  /W 

46  a  24,0  SAY  MESSAGE 

47  STORE  ’88’  'TO  MS  FIE 

48  i  jo  while  .;jr/r.  ((mshit;  1  oo 1  .and.  ms  nr  ms  nr.)  .or.  msue  -  ’•">') 

49  GET  GOD A<  'IO  /HR  ,  /HR 
801  S'lORE  ’  00 '  'TO  MS  I'll: 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 
12 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


@  09,45  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  *•  LOSITE  +■  1  and  '  +; 

HISITE  +  ',  Zero  (00)  or  99  'TO  ERROR 
@  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 
USE  MANUAL 
IF  MSITE  =  '00'  THEN 
GO  BOTTOM 

STORE  RECNO(  )  TO  LAST__REC 
GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 

ELSE 

GO  TOP 

STORE  RECNO( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  RECNO(  )  TO  LAST__REC 
ENDIF  MSITE  =  '00' 

EXIT 

ELSE 

USE  MANUAL  INDEX  MANULSIT 
GO  TOP 
FIND  SMS  HE 
IF  EOF()  =  .T.  THEN 

SEr  COLOR  'TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SEP  COLOR  TO  W+/R,  W+/R 

STORE  "  No  records  exist  lor  site  number  "  *  MSITE  ♦ ; 

",  try  again  "  TO  ERROR 
@  24,16  SAY  ERROR 
DO  DELAY 

SET  COITOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 
LOOP 

ENDIF  EOF ( )  -  .T. 

ENDIF  (MSITE  =  '00'  .OR.  MSITE  =  '99') 

ENDIF  .NOT.  ( (MSITE  >=  '00'  .AND.  MSITE  <  =  HISITE)  .OR.  MSITE  =  'oq'j 
ENDDO  WHILE  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <  =  HISITE)  .OR.  '■IS  HE  -  ’  <i«  ’  ) 

STORE  "  At  beginning  of  records  lor  site  number  "  +  ; 


342 


APPENDIX  B:  MAINTENANCE  MANUAL 


Page  206 


ge  3 


MANULUPD.PRG  Program  Listing 


MSITE  +  "  "  TO  TOF 

STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 

STORE  '  Enter  "00  "  to  start  at  TOF  or  a  six  digit  feature'  +  ; 

'  number  ( '  +  LOFNUM  +  '  -  '  +  HIFNUM  +  1 )  '  TO  MESSAGE 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
@  12,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 

MFEAT  =  '  00  ’  )  THEN 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  OOI XIR  'lO  Wt/R,  W./R 

STORE  '  Response  must  be  between  ’  +  LOFNUM  +  '  and  '  +; 

HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 
IF  MFEAT  =  '99  '  THEN 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE { 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LUFNUM  + ; 

'and  ’  +  HIFNUM  +  ’  or  Zero  (00)  ’  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  / W 

@  24,0  SAY  MESSAGE 
LOOP 

ENDIF  MFEAT  =  ’ 99 

STORE  MSITE  +  MFEAT  TO  MKEY 

USE  MANUAL  INDEX  MANULSIT 

GO  TOP 

FIND  &MKEY 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80 ) 

SET  OOI  OR  TO  W+/R ,  W+/R 

S'TORE  "  No  record  with  feature  number  "  +  MFEAT 
"  exists,  try  again  "  TO  ERRUR 
@  24,12  SAY  ERROR 
DO  DELAY 
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151  SET  COLOR  TO  /W,  /W 

152  @24,0  SAY  MESSAGE 

153  LOOP 

154  ELSE 

1 55  EXIT 

156  ENDIF  EOF ( )  =  .T. 

157  ELSE 

158  GO  TOP 

1 59  EXIT 

160  ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

161  ENDIF 

162  ENDDO  WHILE  .T. 

163  ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  I1ISITE) 

164  * 

165  STORE  SPACE( 16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

166  SPACE! 16)  TO  MESSAGE 

167  STORE  1  TO  INTRO 

168  DO  WHILE  .T. 

169  * 

170  *  INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

1  71  * 

172  IF  I NIRO  =  1  THEN 

173  STORE  0  TO  INTRO 

174  ??  FLASH  +  ’W.MANULUPD/" 

175  SET  CONSOLE  OFF 

1 76  WAIT  TO  ANS 

177  SET  CONSOLE  ON 

1 78  ENDIF 

179  * 

180  SET  COLOR  TO  R  +  /B,  R+/B 

181  J  6,47  SAY  RECNO! )  PICT  "9999" 

182  SET  COLOR  TO  /W,  /W 

183  24,0  SAY  MESSAGE 

184  * 

185  *  STORING  'HIE  OLD  RECORD  TO  A  WORK  RECORD  AREA.  THE  M  PREFIX 

186  *  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

187  *  CORRESPONDING  DATABASE  FIELDS. 

188  * 

1 89  * 

1 90  S’TORE  FEATURENO  'TO  MFEAT 

191  STORE  MANLDESC  TO  MMANDESC 

1 92  * 

193  SELECT  2 

194  USE  DESCRIP  INDEX  DESCRIP 

195  FIND  & MFEAT 

196  STORE  CLIN  TO  MCLIN 

19;  SIORE  DESCIPT  TO  MDESCIPT 

1  98  SELECT  1 

199  SET  COLOR  TO  /HR,  /I3R 

200  :<l  09,45  SAY  SITENO  PICT  "99" 
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@  12,45  SAY  FEATURENO  PICT  "999999" 

@  13,45  SAY  MCLIN  PICT  "9999" 

@  14,45  SAY  MDESCIPT  PICT  "!!!! 1 !!!!!! I !!!!!!!!!!!!!!! 1 !! " 

@  17,45  GET  MMANDESC  PICT  "! ! ! 1 !!!!!!! I !!!!!! I  Hill ! I " 

READ 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80) 

IF  .NOT.  (MANLDESC  =  MMANDESC)  THEN 

ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES. 

SET  COLOR  TO  W+/B,  W+/B 

@20,12  SAY  "Do  you  want  to  accept  the  changes?  (Yes  or  No):" 
SET  COLOR  TO  R+/B,  R+/B 
@20,49  SAY  "Y" 

@20,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@20,62  GET  ACCEPT  PICT 
READ 

ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@20,62  GET  ACCEPT  PICT 
READ 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
@  20,10  SAY  SPACE ( 60 ) 

IF  ACCEPT  =  "Y"  THEN 

REPLACE  MANLDESC  WITH  MMANDESC 

ELSE 

SET  COLOR  TO  /BR,  /BR 

@  17,45  SAY  MANLDESC  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!!!" 
ENDIF 
ENDIF 


SET  COLOR  TO  R+/B,  Rf/B 
STORE  "N"  TO  CHOICE 
(3  22,67  GET  CHOICE  PICT  "!" 
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251  * 

252  * 

253  * 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265  * 

266  * 

267  * 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292  * 

293  * 

294  * 

295 

296 

297 

298 

299 

300 


ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "N",  "P"  OR  "X" 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (CHOICE  =  "N11  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,22  SAY  "  Response  must  be  either  N,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SETT  COLOR  TO  R+/B,  R+/B 
<3  22,67  GET  CHOICE  PICT  "l" 

READ 

ENDDO 

SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 
IF  CHOICE  =  "N"  THEN 

IF  (MSITE  >  =  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  EDF( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
@  24,21  SAY  EOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
@  24,21  SAY  EOF 
DO  DELAY 
ENDIF 

ENDIF  EOF( )  =  .T. 

ELSE 

IF  RECNO( )  =  LAST_REC  THEN 
GO  TOP 

ELSE 

SKIP 

ENDIF 

ENDIF  (MSITE  >  =  LOSITE  .AND.  MSITE  <  =  IILSITE) 

ENDIF  CHOICE  =  "n" 

SKIP  TO  THE  PREVIOUS  RECORD 

IF  CHOICE  =  "P"  THEN 

STORE  RECNO(  )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP  1 

IF  BOF( )  =  .T.  THEN 
GOTO  CURRENT  TJO 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 


SET  COLOR  TO  W+/R,  W+/R 
@  24,16  SAY  TOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP 

SET’  COLOR  TO  W+/R,  W+/R 
<a  24,16  SAY  TOF 
DO  DELAY 
END  IF 

ENDLF  BOF { )  =  .T. 

ELSE 

IF  RECNO( )  =  FIRST_RFC  THEN 
GO  BOTTOM 

ELSE 

SKIP  -  1 
ENDIF 

ENDIF  (MSITE  >=  LOSI'lE  .AND.  MSITE  <=  IIISITE) 

ENDIF  QIOICE  =  "P" 

* 

*  USER  HAS  DECIDED  'TO  EXIT  'HIE  REVIEW 

* 

IF  CHOICE  =  "X" 

EXIT 

ENDIF 

* 

ENDDO  WHILE  .T. 

* 

*  RETURN  TO  CALLING  PROGRAM . 

* 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  QIOICE,  ERROR 

CLOSE  DATABASES 

RETURN 

*****************************♦*+**********+****♦******■***+*+*+♦+♦+** 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  MKLABELS.PRG 

* 


*  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 


*  PURPOSE  :  PROVIDE  THE  USER  WITH  THE  CAPABILITY  OF  RAPIDLY 

*  GENERATING  MAILING  LABELS  FOR  TUX  OF  THE  SPLICE 

*  SITES. 


*  INPUT  FILES  :  NONE. 

* 


*  OUTPUT  FILES  :  NONE. 

♦ 


*  CALLED  BY 

* 

*  MODULES  CALLED 

* 


MA INMENU. PRG 
DELAY . PRG 


*  LOCAL  VARIABLES:  COPIES,  IMAGE,  INTRO,  LABELS,  LAST_LINE, 

*  LINECNT,  MESSAGE,  SKIPONE 

* 


*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  < 

* 

*  GENERATE  MAILING  LABELS  FOR  ALL  OF  THE  SPLICE  SITES. 

* 


SET  ESCAPE  OFF 

SET  EXACT  ON 

SET  TALK  OFF 

SETT  COLOR  TO  W/B,  W/B,  B 

CLEAR 

??  FLASH  +  "S.MKLABELS.SCR/" 
fl  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  R+/B,  R+/B 
* 


*  OBTAIN  THE  NUMBER  OF  SETS  OF  LABELS  TO  PRINT  FROM  'll  IE  USER 

* 

STORE  SPACE(5)  +  "input  the  number  of  sets  of  labels  desired"  +; 
"  (Range  1  -  10)  or  00  TO  EXIT"  +  SPACE! 5)  TO  MESSAGE 

* 

STORE  "99"  TO  COPIES 

DO  WHILE  .NOT.  (COPIES  >=  "00"  .AND.  COPIES  <=  "10") 

SET  OOLOR  TO  /W,  /W 
(a  24,0  SAY  MESSAGE 
STORE  "00"  TO  COPIES 
SET  COLOR  TO  R+/B,  R+/B 
fa  6,55  GET  COPIES  PICT  "99" 

READ 

IF  .NOT.  (COPIES  >=  '00'  .AND.  COPIES  <=  '10') 

SET  ax  OR  TO  W/B,  W/B 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


<a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,22  SAY  "  Response  must  be  between  00  and  10 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 
ENDIF 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE) 80 ) 

* 

IF  COPIES  =  "00"  THEN 
SETT  EXACT  OFF 
RELEASE  COPIES,  MESSAGE 
RETURN 
ENDIF 
* 

*  START  PRINTING  LABELS 

* 

USE  CONFIG  INDEX  CONFIG 
GO  TOP 

STORE  SPACE (15)  +  "  Performing  printer  alignment  test  for  label  forms" 
SPACE ( 1 5)  TO  MESSAGE 

STORE  "Running  label  forms  alignment  print  test"  TO  IMAGE 
STORE  "Y"  TO  CHOICE 
STORE  1  TO  INTRO 
STORE  1  TO  LINECNT 
STORE  LINECNT  +  8  TO  SKIPONE 
* 

*  ASK  THE  USER  IF  A  PRINTER  ALIGNMENT  TEST  IS  DESIRED 

* 

SET  COLOR  TO  W+/B,  W+/B 

<a  22,9  SAY  "Do  you  desire  to  run  a  printer  alignment  test?  (Yes  or  No): 
SET  COLOR  TO  R+/B,  R+/B 
@  22,57  SAY  "Y" 

3  22,64  SAY  "n" 

DO  WHILE  CHOICE  =  "Y" 

SET  COLOR  TO  R+/B,  R+/B 
3  22,70  GET  CHOICE  PICT  "i" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .MOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "Y" ) 

IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,W+/R 

&  24,24  SAY  "  Response  must  be  either  N  or  Y 
DO  DELAY 

STORE  "Y"  TO  QIOICE 


349 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  21  3 


Page  3 


MKLABELS.PRG  Program  Listing 


101 

END IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  = 

T) 

102 

SET  COLOR  TO  R+/B  ,R+/B 

103 

@  22,70  GET  CHOICE  PICT  "l" 

104 

READ 

105 

ENDDO  WHILE  .NOT.  (CHOICE  =  "N"  -OR.  CHOICE 

_  Mytl 

106 

* 

107 

IF  CHOICE  =  "Y" 

108 

@  22,70  SAY  "  " 

109 

* 

110 

* 

DISPLAY  PRINTER  INFORMATION  WINDOW 

TO  USER 

111 

♦ 

112 

IF  INTRO  =  1  THEN 

113 

STORE  0  TO  INTRO 

114 

??  FLASH  +  "W. LABELS/" 

115 

SET  CONSOLE  OFF 

116 

WAIT  TO  ANS 

117 

SET  CONSOLE  ON 

118 

ENDIF  INTRO  =  1 

119 

SET  COLOR  TO  /W,  /W 

120 

<a  24,0  SAY  MESSAGE 

121 

SET  COLOR  TO  /BR,  /BR 

122 

@  14,19  SAY  IMAGE 

123 

@  15,19  SAY  IMAGE 

124 

0  16,19  SAY  IMAGE 

125 

@  17,19  SAY  IMAGE 

126 

@  18,19  SAY  IMAGE 

127 

@  19,19  SAY  IMAGE 

128 

SET  DEVICE  TO  PRINT 

129 

DO  WHILE  LINECNT  <  SKIPONE 

130 

0  LINECNT, 1  SAY  IMAGE 

1  31 

LINECNT  =  LINECNT  *  1 

1  32 

ENDDO  MIILE  LINECNT  <  SKIPONE 

1  33 

SKI TONE  =  LINECNT  ♦  8 

1  34 

SET  DEVICE  TO  SCREEN 

1  35 

SET  COLOR  TO  W/B,  W/B 

136 

■1  24,0  SAY  SPACE (80) 

1  37 

ELSE 

1  38 

SET  C.) LOR  TO  /BR,  /BR 

1  39 

3  14,19  SAY  SPACE (40) 

1  40 

<1  15,14  SAY  SPACE (40) 

141 

')  16,19  SAY  SPACE  (  40 ) 

142 

"1  17,19  SAY  SPACE ( 40) 

143 

'1  18,19  SAY  SPACE!  40) 

1  44 

'1  19,19  SAY  SPACE  (40) 

145 

I/JOP 

1  46 

ENDIF  QIOICE  =  "Y" 

147 

ENUUO  WHILL  CHOICE  =  "Y" 

148 

* 

149 

■* 

SKIP  ONE  HI ,ANK  LAHEI,  PRIOR  'TO  PRINTING 

SHE 

IAHE1, 
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151  SET  DEVICE  TO  PRINT 

152  * 

153  DO  WHILE  LINECNT  <  SKIPONE 

154  @  LINECNT, 1  SAY  "  " 

155  LINECNT  =  LINECNT  +  1 

156  ENDDO  WHILE  LINECNT  <  SKIPONE 

157  * 

158  SET  DEVICE  TO  SCREEN 

159  * 

160  SET  COLOR  TO  W+/B,  W+/B 

161  @  21 ,10  SAY  SPACE  (60) 

162  * 

163  *  DISPLAY  PRINTER  INFORMATION  WINDOW  TO  USER 

164  * 

165  IF  INTRO  =  1  THEN 

166  STORE  0  TO  INTRO 

167  ??  FLASH  +  "W. LABELS/" 

168  SET  CONSOLE  OFF 

169  WAIT  TO  ANS 

170  SET  CONSOLE  ON 

171  ENDIF  INTRO  =  1 

172  * 

173  STORE  SPACE ( 28 )  +  "Printing  toiling  Labels  "  +  SPACE(28)  TO  MESSAGE 

174  SET  COLOR  TO  /W,  /W 

175  @  24,0  SAY  MESSAGE 

176  * 

177  DO  WHILE  .NOT.  EOF(  )• 

178  STORE  TRIM(  SITECITY )  +  ",  "4-  TRIM(  SI  TESTATE)  +  "  "  +; 

179  TRIM(SITEZIP)  TO  LASTOLINE 

180  SET  COLOR  TO  R+/B,  R+/B 

181  IF  SITECD  =  "  "  THEN 

182  SKIP 

183  LOOP 

184  ENDIF  SITECO  =  " 

185  @10,46  SAY  SITENO  PICT  "99" 

186  SET  COLOR  TO  /BR,  /BR 

187  @15,19  SAY  SIIECD  PICT  "'!!!!!! i  !!!!!!!!!!  i  !  " 

188  @16,19  SAY  SITENAMEFL  PICT  "!!!!!!!!!! 1 !!!!!!•!!!!! I !!!!!!!!!!!!!  1  !  ! " 

189  IF  SITEADD1  >  "  "  THEN 

190  (417,19  SAY  SITEADD1  PICT  "!!!!!  1  !!!!!!!!!!!!!!!  1  !!!!!!!!!!!!!!!!!! " 

191  IF  SITEADD2  >  "  "  THEN 

192  a  1 8 , 1 9  SAY  SITEADD2  PICT  " 1 ! S 1 i !!!! 1 1 !  1 !!!!!!!  i  !!!!!!!!!!!!!!!!!!  ! 

193  a  19,19  SAY  LAST_LINE 

194  ELSE 

195  a  18,19  SAY  LAST_LINE 

196  ENDIF  SITEADD2  >  "  " 

1 97  ELSE 

198  a  17,19  SAY  LASTLINE 

199  ENDIF  SI'rEADDI  >  " 

200  SET  DEVICE  TO  PRINT 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 
212 
21  3 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 


249 

250 


STORE  0  TO  LABELS 

DO  WHILE  LABELS  <  VAL(COPIES) 

9  LINECNT, 1  SAY  SPACE (40) 

9  LINECNT+1 , 1  SAY  SPACE) 40) 

9  LINECNT+2 , 1  SAY  SITECO  PICT  "!!!!!!! J !!!!!!!!!!!! " 

9  LINECNT+3 , 1  SAY  SITENAMEFL 

PICT  '* !  i  I  l  !  1 !  i  !  I !  1  i  1  !  !  1 1  !  i  I  i  !  M  !  !  !  !  !  i  1  I  i  1  !  I  !  !  ! " 

IF  SITEADD1  >  "  THEN 

@  LINECNT+4 , 1  SAV  SITEADDl 

pier 

IF  SITEADD2  >  "  "  THEN 

9  LINECNT+5, 1  SAY  SITEADD2 

PICr  M i ! ! ! ! ! 1 ! ! i I !  !  I  i  i  !  !  !  1  1  1  !  1  !  i  !  !  !  !  !  i  !  1  i  !  I !  i  ! 
@  LINECNT+6 , 1  SAY  LAST_LINE 
9  LINECNT+7, 1  SAY  SPACE(40) 

ELSE 

9  LINECNT+5, 1  SAY  LAST_LINE 
fl  LINECNT+6, 1  SAY  SPACE(40) 

9  LINECNT+7 ,1  SAY  SPACE) 40) 

ENDIF  SITEADD2  >  " 

ELSE 

@  LINBCNT+4 , 1  SAY  LAST_LINE 

9  LINECNT+5, 1  SAY  SPACE) 40) 

9  LINECNT+6, 1  SAY  SPACE) 40) 

9  LINECNT+7, 1  SAY  SPACE) 40) 

ENDIF  SITEADDl  >  " 

LINECNT  =  LINECNT+8 
IF  LINECNT  >  81  THEN 
LINECNT  ?  1 
ENDIF  LINECNT  >  81 
LABELS  =  LABELS  +  1 
ENDDO  WHILE  LABELS  <  COPIES 
SET  DEVICE  TO  SCREEN 
9  14,19  SAY  SPACE) 40) 

9  15,19  SAY  SPACE) 40) 

9  16,19  SAY  SPACE) 40) 

9  17,19  SAY  SPACE) 40) 

9  18,19  SAY  SPACE) 40) 

9  19,19  SAY  SPACE) 40) 

SKIP 

ENDDO  WHILE  .NOT.  EOF) ) 

* 

*  RETURN  TO  THE  CALLING  PROGRAM 

* 

SET  EXACT  OFF 

RELEASE  COPIES,  IMAGE,  INTRO,  LABELS,  LAST_L1NE,  LINECNT, ; 

MESSAGE,  SKIPONE 
CLOSE  DATABASES 
RETURN 

******  +  **********  +  +  ********  +  ***+****♦+***♦♦  +  ***  +  ***++******+*+♦■***++++  +  ♦♦ 
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1  *  PROCEDURE  MNLSTRPT.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  A  SPLICE  MANUAL  SITE 

9  *  LEVEL  REPORT. 

10  * 

11  *  INPUT  FILES  :  MANUAL. DBF,  TEMPONE . DBF ,  DESCRIPT. DBF, 

12  *  DESCRIP. NDX 

13  * 

14  *  OUTPUT  FILES  :  NONE. 

15  * 

16  *  CALLED  BY  :  SITERPTS.PRG 

17  * 

18  *  MODULES  CALLED  :  DELAY. PRG 

19  * 

20  *  GLOBAL  VARIABLE:  HISITE,  LOSITE 

21  * 

22  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  LINECT,  MSITE,  PAGENO, 

23  *  TODAY,  TODATE 

24  * 

25  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 

26  * 

27  *  CASE  SELECTION  =  2  MANUAL  SITE  LEVEL  REPORT 

28  * 

29  *  CREATE  THE  SPLICE  MANUAL  SITE  REPORT  AND  CHECK  IF  THE  REPORT 

30  *  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN . 

31  * 

32  SET  ESCAPE  OFF 

33  SET  TALK  OFF 

34  SET  OOLOR  TO  W+/B,  W+/B,  B 

35  CLEAR 

36  USE  MANUAL 

37  GO  TOP 

38  IF  EOF(  )  =  .T.  THEN 

39  SET  COLOR  TO  W+/R,  W+/R 

40  :a  13,25  SAY  "  The  MANUALS  DataLife  is  EMPTY!  " 

41  DO  DELAY 

42  RETURN 

43  ENDIF 

44  ??  FLASH  +  "S. REPORTS. SCR/” 

45  0  24,0  SAY  SPACE(80) 

46  SET  ODIiOR  TO  R+/  ,  R+/ 

47  3  2,27  SAY  "  SITE  LEVEL  MANUAL  REPORT  ” 

48  * 

49  *  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NO  EXIST.  IF  SO  ERASE  THEM 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SET  CONSOLE  OFF 
ERASE  TEMPONE . DBF 
ERASE  TEMPONE. NDX 
SET  CONSOLE  ON 

* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:” 
USE  MANUAL  INDEX  MANULSIT 
* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSITE 
@  13,66  GET  MSITE  PICT  '99‘ 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  COLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  '  +  LOSITE  +; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
a  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  EOF()  =  .T.  THEN 

STORE  "  No  manuals  exist  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  COLOR  TO  W+/R,  W+/R 
i.a  24,16  SAY  MESSAGE 
DO  DELAY 
LOOP 

ELSE 

EXIT 

ENDIF  EOF ( )  =  .T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDDO  WHILE  .T. 

* 

SET  COLOR  TO  /BR,  /BR 
d  13,15  SAY  SPACE)  55) 

* 

SET  COLOR  TO  R  +  /  ,  Rt/ 

a  13,13  SAY  "  CREATING  TOE  TEMPORARY  DATABASE  AND  ASSOCIATED  INDEX 

* 

*  CREATE  TOE  TEMPORARY  DATABASE  TO  BE  USED 

* 

SET  CONSOLE  OFF 

COPY  STRUCTURE  TO  TEMPONE 

USE  TEMPONE 

APPEND  FROM  MANUAL  FOR  SITENO  =  "XMSITE" 

INDEX  ON  FEATURENO  TO  TEMICNE 
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101  SET  CONSOLE  ON 

102  * 

103  *  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

104  *  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

105  * 

106  SET  COLOR  TO  /BR,  /BR 

107  @  13,12  SAY  SPACE ( 65 ) 

108  * 

109  SET  COLOR  TO  W+/BR,  W+/BR 

110  @  13,16  SAY  "  Do  you  want  a  printed  report?  (Yes  or  No):'  " 

111  SET  COLOR  TO  /Br",  /BR 

112  @  13,49  SAY  "Y" 

113  @13,56  SAY  "N" 

114  STORE  "N"  TO  ACCEPT 

115  @13,62  GET  ACCEPT  PICT 

116  READ 

117  * 

118  *  ENSURE  THAT  11  IE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

119  * 

120  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

121  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 

122  SET  COLOR  TO  W+/R.W+/R 

123  a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

124  DO  DELAY 

125  STORE  "N"  TO  ACCEPT 

126  ENDIF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

127  SET  COLOR  TO  /BR,  /BR 

128  @  13,62  GET  ACCEPT  PICT 

129  READ 

130  ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

131  * 

132  SET  COLOR  TO  /BR,  /BR 

133  @13,12  SAY  SPACE ( 65 ) 

134  * 

135  SELECT  1 

136  USE  TEMPONE 

137  SELECT  2 

138  USE  DESCRIP  INDEX  DESCRIP 

139  SELECT  TEMPONE 

140  SET  RELATION  TO  FEATURENO  INTO)  DESCRIP 

141  GO  TOP 

1  42  * 

143  @13,12  SAY  SPACE ( 65 ) 

144  * 

145  IF  ACCEPT  =  "Y"  THEN 

146  ??  FLASH  +  "W. PRINTER/" 

147  SET  CONSOLE  OFF 

1  48  WAIT  TO  CHOICE 

149  SET  CONSOLE  ON 

150  SET  (DIOR  TO)  W/B,  W/B 
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DESCRIPTION 


SET  COLOR  TO  GR+/B,  GR+/B 
@5,2  SAY  "SITE  CLIN  FEATURE# 
@5,57  SAY  "MANUAL  DESCRIPTION" 
SET  COLOR  TO  /BR,  /BR 
STORE  0  TO  LINECT 


DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  LINECT  <  15 

@  LINECT+7 , 3  SAY  SITENO 
@  LINECT+7, 8  SAY  DESCRIP- > CLIN 
@  LINECT+7, 16  SAY  FEATURENO 
@  LINECT+7, 25  SAY  DESCRIP- >DESCIPT 
@  LINECT+7 , 54  SAY  MANLDESC 
LINECT  =  LINECT  +  1 
SKIP 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 

ENDIF  EQF( )  =  .T. 

ENDDO  WHILE  LINECT  <  15 

IF  BOF<  )  =  .T.  THEN 
EXIT 

ENDIF  EOF ( )  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  Q 10  ICE 
@  22,57  GET  CHOICE  PICT  "!" 

READ 

ENSURE  THAT  THE  USER'S  RESIONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X") 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  QIOICE 

ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  QIOICE  =  "X") 

SET  COLOR  TO  R+/B,  R+/B 
9  22,57  GET  QIOICE  PICT  "l" 

READ 

ENDIX)  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QIOLCE  =  "X" ) 

DETERMINE  IF  THE  USER  WANTS  TO  (JUIT  OR  CONTINUE 
IF  QIOICE  =  "C" 
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251 

SET  OOLOR  TO  /BR, 

252 

@  07,2 

SAY 

SPACE (76) 

253 

a  08,2 

SAY 

SPACE) 76) 

254 

a  09,2 

SAY 

SPACE (76) 

255 

a  10,2 

SAY 

SPACE (76) 

256 

a  n ,  2 

SAY 

SPACE (76) 

257 

a  12,2 

SAY 

SPACE) 76) 

258 

a  13,2 

SAY 

SPACE (76) 

259 

a  14,2 

SAY 

SPACE (76) 

260 

a  15,2 

SAY 

SPACE (76) 

261 

a  16,2 

SAY 

SPACE (76) 

262 

a  17,2 

SAY 

SPACE (76) 

263 

a  18,2 

SAY 

SPACE (76) 

264 

@  19,2 

SAY 

SPACE) 76) 

265 

a  20,2 

SAY 

SPACE) 76) 

266 

@  21,2 

SAY 

SPACE (76) 

267 

STORE  0  TO 

LINECT 

268 

ELSE 

269 

EXIT 

270 

ENDIF  CHOICE  = 

"c" 

271 

* 

272 

ENDDO  WHILE  .NOT.  EOF( ) 

273 

* 

274 

ENDIF 

ACCEPT  =  "Y" 

275 

* 

276 

* 

ERASE  THE  TEMPORARY  DATABASE 

277 

,  * 

278 

CLOSE 

DATABASES 

279 

SET 

CONSOLE  OFF 

280 

ERASE 

TEMPONE , DBF 

281 

ERASE 

TEMPONE . NDX 

282 

SET 

CONSOLE  ON 

283 

SET 

PRINT  OFF 

284 

* 

285 

* 

RETURN  TO  CALLING  PROGRAM 

286 

* 

287 

RELEASE  ACCEPr,  CHOICE,  ERROR,  1 

288 

RETURN 

289 

********+**+**+****************; 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4U 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  NEWDOADD. PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

* 

* 

* 

*  INPUT  FILES 

* 

* 

*  OUTPUT  FILES 


*  CALLED  BY 

* 

*  MODULES  CALLED 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ADD  A  NEW  DELIVERY  ORDER  TO  THE  EXISTING  EQUIPMENT, 
MANUAL,  AND  SERIAL  NUMBER  DATA  BASES  WHILE  UPDATING 
ALL  INDEXES.  NO  TEMP. DBF  LINE  ITEM  WITH  A  BLANK 
OR  "XXXXXX"  FEATURE  NUMBER  WILL  BE  ADDED  TO  THE  FILE. 

EQUIP. DBF,  MANUAL. DBF,  SERIALNO . DBF ,  TEMP. DBF, 

NEWDOMOD . DBF ,  SERNOTOP . DBF . 

EQUIP. DBF,  MANUAL. DBF,  SERIALNO. DBF,  TEMP. DBF, 
NEWDOMOD. DBF,  SERNOTMP . DBF . 

NEWDOCVT . PRG 

SERNOBLD . PRG 


*  LOCAL  VARIABLES:  MESSAGE,  MFEAT,  MSITE,  MINDEX 

* 

*  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========== 

* 

*  CLEAR  SCREEN.  COPY  AND  MODIFY  INPUT  FILE  TO  DATABASE  FORMAT  FOR 

*  ALL  RECORDS  THAT  DON'T  HAVE  A  BLANK  OR  "XXXXXX"  IN  THE  FEATURE  NUMBER. 

* 

SET  COLOR  TO  R+/  ,  R+/ 

a  15,24  SAY  "  UPDATING  THE  EQUIPMENT  DATABASE  " 

STORE  "  Adding  new  records  to  the  EQUIPMENT  database"  t- ; 

",  PLEASE  BE  PATIENT  "  TO  MESSAGE 

SET  COLOR  TO  /W,  /W 
(a  24,0  SAY  MESSAGE 
USE  EQUIP 

COPY  STRUCTURE  TO  NEWDOMOD 
USE  NEWDOMOD 

APPEND  FROM  TEMP. DBF  FOR  FEATURENO  <>  ’  ’  .AND.  FEATURENO  <>  'XXXXXX' 

♦ 

*  FILL-LN  THE  EFFECTIVE  DELIVERY  ORDER  DATE  FIELD  WITH  THE  DATE  SUPPLIED 

*  BY  THE  USER  AND  ADD  THE  DELIVERY  ORDER  TO  'll  IE  EQUIPMENT  DATABASE . 

* 

REPLACE  ALL  EFFDATE  WITH  MEFFDATE 

USE  EQUIP  INDEX  EQUIPDAT,  EQUIPS IT,  EQUIPPRJ,  EQUIPSD,  EFEAT 
APPEND  FROM  NEWDOMOD 

* 

*  ADDING  HIE  NEW  RECORDS  FOR  THE  MANUAL  DATABASE. 

+ 

SET  GDI /JR  TO  IH/  ,  R  +  / 


%  ■> 


1 


i 


3 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


@  15,24  SAY  ”  UPDATING  THE  MANUALS  DATABASE  " 

STORE  "  Adding  new  records  to  the  MANUAL  database"  +; 

",  PLEASE  BE  PATIENT  "  TO  MESSAGE 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
CLOSE  DATABASES 
SELECT  1 

USE  MANUAL  INDEX  MANULSIT 
SELECT  2 
USE  NEWDOMOD 
* 

DO  WHILE  .NOT.  BOF( ) 

STORE  SITENO  TO  MSITE 

STORE  FEATURENO  TO  MFEAT 

STORE  SITENO  +  FEATURENO  TO  MINDEX 

SELECT  1 

GO  TOP 

FIND  &MINDEX 

IF  EOF(  ) 

GO  BOTTOM 
INSERT  BLANK 

REPLACE  FEATURENO  WITH  "&MFEAT" 

REPLACE  SITENO  WITH  "&MSITE" 

ENDIF 
SELECT  2 
SKIP 

ENDDO  WHILE  .NOT.  EX3F(  ) 

* 

*  BUILDING  A  DUMMY  SERIAL  NUMBER  FILE  WHICH  WILL  BE  MODIFIED  AND 

*  EXPANDED  WHEN  ALL  DELIVERY  ORDERS  HAVE  BEEN  LOADED. 

* 

SET  COLOR  TO  R+/  ,  R+/ 

@  15,24  SAY  "  BUILDING  THE  SERIAL  NUMBER  FILE  " 

STORE  "  Adding  new  records  to  the  SERIAL  NUMBER  database,  "  +; 

"  PLEASE  BE  PATIENT  "  TO  MESSAGE 

SET  COLOR  TO  ,/W ,  /W 
@24,0  SAY  MESSAGE 
USE  SERIALNO 

COPY  STRUCTURE  TO  SERNOTMP 

USE  SERNOIMP 

APPEND  FROM  NEWDOMOD 

* 

*  CALL  THE  PROGRAM  TO  BUILD  THE  BLANK  SERIAL  NUMBER  RECORDS 

* 

DO  SERNOBLD 

STORE  "  Appending  new  records  to  the  database  may  be  a  Long  process,"  + ; 

"  PLEASE  BE  PATIENT  "  TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
SET  COLOR  TO  R+/  ,  R+/ 
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101  @15,12  SAY  "  APPENDING  NEW  RECORDS  TO  THE  SERIAL  NUMBER  DATABASE  " 

102  USE  SERIALNO  INDEX  SERNOPRJ,  SERNOSIT,  SERNODAT,  SERNOFEA 

103  APPEND  FROM  SERNOTMP 

104  SET  COLOR  TO  W/B,  W/B 

105  @  15,10  SAY  SPACE( 65 ) 

106  @24,0  SAY  SPACE ( 80 ) 

107  * 

108  *  RETURNING  TO  THE  GALLING  PROGRAM. 

109  * 

110  CLOSE  DATABASES 

111  RCTURN 

112  ****************************************************************  ******  **  ***** 


T"- 
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MA INMENU. PRG. 


1  *  PROCEDURE  NEWDOCMD.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  LOAD  NEW  DELIVERY  ORDERS  TO  THE  DATABASE  FILES, 

g  * 

10  *  INPUT  FILES  :  NONE. 

11  * 

12  *  OUTPUT  FILES  :  NONE. 

13  * 

14  *  CALLED  BY  :  MAINMENU . PRG . 

15  * 

16  *  MODULES  CALLED  :  NEWDOCVT.PRG 

17  * 

18  *  LOCAL  VARIABLES:  SELECT 

19  * 

20  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <====== 

21  * 

22  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  SELECTION 

23  * 

24  STORE  "1"  TO  SELECT 

25  DO  WHILE  SELECT  <  "2" 

26  SET  COLOR  TO  W/B,  W/B 

27  CLEAR 

28  ??  FLASH  +  "W.NEWDOCMD/" 

29  SET  CONSOLE  OFF 

30  WAIT  TO  SELECT 

31  SET  CONSOLE  ON 


26  SET  COLOR  TO  W/B,  W/B 

27  CLEAR 

28  ??  FLASH  +  "W.NEWDOCMD/" 

29  SET  CONSOLE  OFF 

30  WAIT  TO  SELECT 

31  SET  CONSOLE  ON 

32  * 

33  *  PROCESS  ROUTINE  BASED  ON  'HIE  USER'S  SELECTION. 

34  * 

35  DO  CASE 

36  * 

37  *  CALL  THE  NEW  DELIVERY  ORDER  CONVERT  AND  LOAD  PROGRAM. 

38  CASE  SELECT  =  "l" 

39  DO  NEWDOCVT 

40  * 

41  *  RETURN  TO  'II IE  MAINMENU  PROGRAM. 

42  CASE  SELECT  =  "2" 

43  * 

44  ENDCASE 

45  * 

46  ENDDO  (WHILE  SELECT  =  "2") 

47  * 

48  *  RETURN  TO  'II IE  CALLING  PROGRAM 

49  * 

50  RETURN 


DO  NEWDOCVT 


RETURN  TO  'II IE  MAINMENU  PROGRAM. 
CASE  SELECT  =  "2" 


ENDCASE 


-  '  ***  *  '  *  ■*  *  -  * 
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*  PROCEDURE  NEWDOCVT.PRG 


3  *  AUTHORS 

4  * 


8 |  *  PURPOSE 
9 1  * 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  11.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  COMPARE  AN  INCOMING  NEW  DELIVERY  ORDER  TO  IHE 
EXISTING  EQUIPMENT  DATABASE  AND  CHECK  FOR  DUPLICATE 
SITE  NUMBER  AND  DELIVERY  ORDER  DATE.  IF  THE  SITE 
NUMBER  AND  DELIVERY  DATE  ARE  UNIQUE  OR  THE  USER 
DECIDES  TO  LOAD  THE  DUPLICATF  SITE  NUMBER / DEL I VERY 
ORDER  ANYWAY  THEN  THE  NEW  DELIVERY  ORDER  ADD 
PROGRAM  IS  CALLED.  WIEN  ALL  DELIVERY  ORDERS  ARE 
ADDED  THEN  SPECIFIED  INDEXES  ARE  UPDATED. 


17  *  INPUT  FILES 

18  * 


TED. DBF,  EQUIP. DBF,  MANUAL. DBF,  SERIALNO.DBF,  NEW 
DELIVERY  ORDER  . PRN  FILE,  EFFDATE.NDX,  EQUIPSIT.NDX, 
EQUIPPRJ.NDX,  MANULSIT.NDX,  SERNOPRJ . NDX ,  SERNOSIT.NDX, 
SERNODAT . NDX ,  NEWDOMOD . DBF ,  TEMP . DBF ,  SERNUIMP . DBF , 
EFEAT.NDX 


23  *  OUTPUT  FILES 

24  * 

25  * 

26  * 

27  *  CALLED  BY 


EQUIP. DBF,  MANUAL. DBF,  SERIAL. DBF,  EFFDATE.NDX, 
EQUIPSIT.NDX,  EQUIPPRJ.NDX,  MANULSIT.NDX,  EFEAT.NDX 
SERNOPRJ. NDX,  SERNOSIT.NDX,  SERNODAT . NDX . 

NEWDOCMD . PRG 


29  *  MODULES  CALLED  :  NEWUOAUU . PRG ,  DEI, AY. PRG 

30  * 

31  *  GLOBAL  VARIABLE:  HI DATE,  HISITE,  LODATE,  LOSITE 

32  * 

33  *  LOCAL  VARIABLES:  ACCEPT,  Cl  10 ICE,  DBNAME,  ERAS IT,  ERROR,  MDAY ,  MEFFDATE, 

34  *  MESSAGE,  MKEY,  MMONTH,  MOLDATE,  MSITE,  MYEAR,  NOFILE 


36  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <== 

37  + 

38  *  SET  UP  INITIAL  STRUCTURE  AND  RECEIVE  INPUT  INFORMATION. 

39  *  AND  START  LOOP  PROCESS. 


41  SET  ESCAPE  OFF 

42  SET  TALK  OFF 

43  SET  COLOR  TO  W+/B,  W+/B,  B 

44  ??  FLASH  +"S .NEWDOCVT.SCR/" 

45  24,0  SAY  SPACE!  80) 

46  STORE  "Are  all  Input  entries  correct?  (Yes  or  No):"  to  OURRECI' 

47  DO  WHILE  .T. 

48  * 

49  *  OBTAIN  THE  INPUT  VALUES  FROM  'HIE  USER 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


DO  WHILE  .T. 

STORE  SPACE(18)  +  "Enter  the  name  of  the  .PRN  file  to  be  loaded"  +; 

SPACE ( 1 8)  TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
STORE  "SPLICE  "  TO  DBNAME 
STORE  DTOC  ( DATE  (  )  )  1X3  SYSDATE 

STORE  SUBSTR ( SYSDATE ,7,2)  +  SUBSTR ( SYSDATE , 1 , 2 )  +; 

SUBSTR ( SYSDATE ,4,2)  TO  MEFFDATE 
STORE  "01"  TO  MSITE 
SET  COLOR  TO  /BR,  /BR 
@6,54  GET  DBNAME  PICT  "!!!!!!!!" 

READ 

STORE  0  TO  NOFILE 

DO  WHILE  .NOT.  FI LE ( TR IM ( DBNAME )+". PRN") 

SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  File  does  not  exist,  try  again  " 

DO  DELAY 

NOFILE  =  NOFILE  +  1 
IF  NOFILE  =  3  THEN 

SET  COLOR  TO  W+/BG ,  W+/BG 

@  17,15  SAY  "  Do  you  want  to  exit  this  process?  (Yes  or  No):  " 
SET  COLOR  TO  /BG,  /BG 
@  17,51  SAY  "Y" 

@  17,58  SAY  "N" 

STORE  ”Y”  30  ACCEPT 
@  17,63  GET  ACCEPT  PICT  11 !" 

READ 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "Y"  'TO  ACCEPT 
ENDLF 

SET  COLOR  TO  /BG,  /BG 
@  17,63  GET  ACCEPT  PICT  "l" 

READ 

ENDDO 

IF  ACCEPT  =  "Y"  'll  1EN 
SET  CONSOLE  OFF 
CIOSE  DATABASES 
ERASE  TEMP. DBF 
ERASE  NEWLXOMOD .  DBF 
ERASE  SERNOTMP . DBF 
SET  CONSOLE  ON 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  CORRECT,  Dl ’.NAME,; 
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ERAS IT,  NOFILE,  SYSDATE 

RETURN 

ELSE 

NOFILE  =  0 
ENDLF 

SET  COLOR  TO  W+/B,  W+/B 
@  17,10  SAY  SPACE! 55) 

END  IF 

SET  COLOR  TO  /W,  /W 

@24,0  SAY  MESSAGE 

STORE  "SPLICE  "  TO  DBNAME 

SET  COLOR  TO  /BR,  /BR 

@6,54  GET  DBNAME  PICT  "!!!!!!!!" 

READ 

ENDDO 

STORE  TRIM (DBNAME)  +  ".PRN"  TO  DBNAME 
USE  TED 

COPY  TO  TEMP. DBF 
USE  TEMP. DBF 
APPEND  FROM  & DBNAME  SDF 
GO  TOP 

HAVE  THE  USER  SPECIFY  THE  EFFECTIVE  DATE  OF  THE  DELIVERY  ORDER 

STORE  SPACE (17)  +  "input  Effective  Date  (Range  "  +  LODATE  +  ; 

"  to  "  +  HIDATE  +  ")"  +  SPACE (17)  TO  MESSAGE 
SETT  COLOR  TO  /W,  /W 
?  24,0  SAY  MESSAGE 
STORE  "000000"  TO  MOLDATE 

DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

STORE  MEFFDATE  TO  MOLDATE 

SET  COLOR  TO  /BR,  /BR 

@8,54  GET  MOLDATE  PICT  "999999" 

READ 

DO  WHILE  .T. 

IF  .NOT.  ( SUBSIR ( MOLDATE, 1 ,2)  >  "83"  .AND.; 

SUBSTR ( MOLDATE ,1,2)  <  =  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  Wt/R 

@  24,16  SAY  "  Year  portion  of  date  must  be  between  84  arid  99 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 

STORE  SUBSIR ( MEFFDATE, 1 ,2)  TO  MY EAR 
SET  COLOR  TO  /BR,  /BR 
@  8,54  GET  MYEAR  PICT  "99" 

READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  .NOT.  ( SUBSTR ( MOLDATE ,3,2)  >=  "01"  .AND.; 

SUBSTR ( MOLDATE ,3,2)  <=  "12")  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE (80) 

SET  OOLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 
DO  DELAY 

SET  OOLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 

STORE  SUBSTR ( MEFFDATE ,3,2)  TO  MMONTH 
SETT  OOLOR  TO  /BR,  /BR 
@  8,56  GET  MMONTH  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,2)  +  MMONTH  +; 

SUBSTR ( MOLDATE ,5,2)  TO  MOLDATE 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  ( (SUBSTR (MOLDATE, 3, 2)  =  "04"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "06"  .OR. 

SUBSTR (MOLDATE, 3,2)  =  "09"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "ll")  .AND 
.NOT. (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.  SUBS'IR ( MOLDATE , 5 , 2 )  <=  "30") 
SCT  OOLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

DO  DELAY 

SCT  COLOR  TO  /W,  /W 

@  24,0  SAY  MESSAGE 

STORE  SUBSTR (MEFFDATE, 5, 2)  TO  MDAY 

SCT’  COLOR  'TO  /BR,  /BR 

(a  8,58  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 

IF  (SUBSTR (MOLDATE, 3, 2)  =  "02"  .AND.  .NOT.; 

(SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

SUBS'IR  (MOLDATE,  5, 2)  <=  "28"))  THEN 
SET  COLOR  TO  W/B,  W/B 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214  * 

215 

216 

217 

218 

219 

220 
221 
•222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237  * 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249  + 

250 


@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  ' 
DO  DELAY 

SETT  COLOR  TO  /W,  /W 

@  24,0  SAY  MESSAGE 

STORE  SUBSTR ( MEFFDATE ,5,2}  TO  MDAY 

SET  COLOR  TO  /BR,  /BR 

@8,58  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR (MOLDATE,1 ,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 

IF  .NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  -AND.; 

SUBSTR (MOLDATE, 5, 2)  <=  "31")  THEN 
SETT  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SETT  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31 
DO  DELAY 

SET  COLOR  TO  /W,  /W 

@  24,0  SAY  MESSAGE 

STORE  SUBSTR (MEFFDATE, 5, 2)  TO  MDAY 

SET  COLOR  TO  /BR,  /BR 

@8,58  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR  ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 

EXIT 

ENDIF 

ENDIF 

ENDIF 

ENDDO  WHILE  .T. 

ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  H1DATE) 

STORE  MOLDATE  TO  MEFFDATE 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80 ) 

STORE  SPACE(8)  +  "Enter  site  number  of  Del  ivery  Order  to  lx?  " 

"loaded  to  the  database"  +  SPACE) 8)  'TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
SET  COLOR  'TO  /BR,  /BR 
<)  11,54  SAY  SITENO  PIC!  "99" 

«  13,54  GET  MS1TE  PICT  "99" 

READ 

DO  WHILE  .NOT.  (MSITE  >  =  LUSITE  .AND.  MS1TE  <=  HISL'IE) 
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251 

252 

253 

254 

255 

256 

257 


258 

259 

260 
261 
262 

263 

264 


265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 


285 

286 
287 


288 


289 

290 

291 

292 

293 

294 

295  * 

296 

297  * 

298  * 

299  * 

300 


IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  +  ; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
@  24,21  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
SET  COLOR  TO  /BR,  /BR 
STORE  '01'  TO  MSITE 
@  13,54  GET  MSITE  PICT  "99" 

READ 

ENDIF 

ENDDO 


ASK  THE  USER  IF  THE  INPUTS  ARE  VALID  OR  NOT 

SET  COLOR  TO  W+/B,  W+/B 
@24,0  SAY  SPACE ( 80 ) 

@  16,17  SAY  CORRECT 
SET  COLOR  TO  R+/B,  R+/B 
@  16,49  SAY  "Y" 

@  16,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@  16,62  GET  ACCEPT  PICT 
READ 


ENSURE  THAT  THE  RESPONSE  IS  EITHER  "Y"  OR  "n" 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPr  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  Ri/B 
3  16,62  GET  ACCEPT  PICT  "l" 

READ 

ENDDO 

SET  COLOR  TO  W+/B,  Wi/B 
a  16,15  SAY  SPACE ( 55 ) 

IF  ACCEPT  =  "Y"  THEN 

ASK  IHE  USER  IF  THE  INPUT  ".PRN"  FILL  IS  TO  BE  ERASED 
SET  ail  OR  TO  W+/B,  Wt/U 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311  * 

312  * 

313  * 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327  * 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340  * 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


STORE  "Do  you  want  to  erase  the  input  file  "  +  DBNAT4E  +  ; 

"?  (Yes  or  No):  "  TO  MESSAGE 
@  16,10  SAY  MESSAGE 
STORE  "N"  TO  ERASIT 
SETT  COLOR  TO  R+/B,  R+/B 
@  16,46  SAY  DBNAME 
@  1 6 , 45+LEN ( DBNAME ) +5  SAY  "Y" 

@  16, 45+LEN (DBNAME) +12  SAY  "N" 

@  16, 45+LEN (DBNAME) +17  GET  ERASIT  PICT  "i" 

READ 

ENSURE  THAT  THE  RESPONSE  IS  EIT13ER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (ERASIT  =  "N"  .OR.  ERASIT  =  "Y") 

IF  .NOT.  (ERASIT  =  "N"  .OR.  ERASIT  =  "Y")  THEN 
SETT  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y 
DO  DELAY 

STORE  "N"  TO  E1RASIT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
3  1 6 , 45+LEN (DBNAME)  +  1 7  GET  ERASIT  PICT 
READ 
ENDDO 

SET  COLOR  TO  W+/B,  W+/B 
a  16,10  SAY  SPACE ( 65 ) 

IF  ERASIT  =  "Y"  THEN 
ERASE  & DBNAME 
ENDIF 
EXIT 

ELSE 

SET  COLOR  TO  /BR,  /BR 
3  8,54  SAY  " 

3  11,54  SAY  "  " 
a  13,54  SAY  "  " 

I XX  )P 
ENDIF 

ENDLXJ  Willi J3  .’I’. 

SET  COLOR  TO  W+/B,  W+/B 
a  16,10  SAY  SPACE (65) 

REPLACE  ALL  S1TENO  WI'IH  "AMS  TOE" 

USE  EQUIP  INDEX  EOUIPSD 
STORE  MEFFDATE  +  MS TOE  TO  MKEY 
GO  TOP 

IF  EX)F(  )  -  .T.  ’ll  1EN 
IX)  NEWIX )ADD 

El  SE 

FIND  &MKEY 
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IF  EOF( )  =  .T.  THEN 
DO  NEWDOADD 
ELSE 

SET  COLOR  TO  R+*/  ,  R+*/ 

@  16,21  SAY  "  THIS  IS  A  DUPLICATE  DELIVERY  ORDER!  " 

SET  COLOR  TO  W+/B,  W+/B 

ia  17,17  SAY  "  Do  you  stiLl  desire  to  Load  it?  (Yes  or  Mo): 
SET  COLOR  TO  R+/D,  R+/B 
@  17,51  SAY  "Y" 

@  17,58  SAY  "N" 

STORE  "N"  TO  ACCEPT 
0  17,63  GET  ACCEPT.1  PICT  "!" 

READ 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
0  17,63'  GEI  ACCEPr  PIC1’  "!" 

READ 

ENDDO 

SET  COLOR  TO  W/B,  W/B 
0  16,20  SAY  SPACE ( 50 ) 

0  17,15  SAY  SPACE ( 55) 

IF  ACCEPT  =  "Y"  THEN 
DO  NEWDOADD 
ENDIF 
ENDIF 
ENDIF 
* 

*  CHECK  TO  SEE  IF  THERE  ARE  MORE  DELIVERY  ORDERS  TO  BE  ADDED. 

♦ 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "N"  'TO  CHOICE 
a  21,68  GDI  QIOICE  PICT 
READ 

♦ 

*  ENSURE  THAT  THE  RESIONSE  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .NOT’.  (QIOICE  =  "N”  .OR.  CHOICE  =  "Y" ) 

IF  .NOT.  (QIOICE  =  "N"  .OR.  QIOICE  =  "Y")  THEN 
SET  COU1R  'TO  W+/R,  W+/R 

a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 


ENDIF 

SET  OOIjOR  TO  R+/B,  Rt/B 
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401  @  21,68  GET  CHOICE  PICT  "l" 

402  READ 

403  ENDDO 

404  * 

405  IF  CHOICE  =  "N"  THEN 

406  EXIT 

407  ELSE 

408  SET  COLOR  TO  W/B,  W/B 

409  (a  19,10  SAY  SPACE (  65 ) 

410  @  21,68  SAY  "  " 

411  SET  COLOR  TO  /BR,  /BR 

412  @8,54  SAY  " 

413  (a  11  ,54  SAY  "  " 

414  @  13,54  SAY  "  " 

415  END IF 

416  * 

417  ENDDO  WHILE  .T. 

418  * 

419  *  ERASE  ALL  TEMPORARY  DBF  FILES  CREATED  DURING  THE  LOAD 

420  * 

421  SET  COLOR  TO  R+/  ,  R+/ 

422  @15,26  SAY  "  ERASING  TEMPORARY  DATABASES  " 

423  CLOSE  DATABASES 

424  SET  CONSOLE  OFF 

425  ERASE  TEMP .  DBF 

426  ERASE  NEWDOMOD . DBF 

427  ERASE  SERNOTOP . DBF 

428  SET  CONSOLE  ON 

429  * 

430  *  RETURN  TO  THE  CALLING  PROGRAM 

431  * 

432  RELEASE  /ALL  LIKE  M* ,  ACCEPT,  CHOICE,  CORRECT,  DBNAME,  ERAS  IT,  ERROR,; 

433  NOFILE,  SYS DATE 

434  RETURN 

435  ********************+**************************+-*t**** *♦♦**+**+♦+*♦♦++ 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 
1  3 
1  4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

10 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  PROJRPTS.PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

*  INPUT  FILES 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SELECTION  OF  PROJECT  LEVEL  REPORTS. 


NONE. 


*  OUTPUT  FILES 

* 

*  GALLED  BY 

* 

*  MODULES  CALLED 


NONE. 


REPORCMD . PRC 

EQPPJRPT . PRG ,  SNOPJRPT . PRG 


*  LOCAL,  VARIABLES:  PROJRPTS 

+ 

*  DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  <========^= 

* 

*  DISPLAY  'HIE  PROCESS  MENU  TO  'FI IE  USER  AND  WAIT  FOR  'HIE  SELECTION. 

* 

STORE  "1"  TO  PROJRPTS 
DO  WHILE  PROJRPTS  <  "3" 

SET  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W. PROJRPTS/" 

SET  CONSOLE  OFF 
WAIT  TO  PROJRPTS 
SET  CONSOLE  ON 

* 

*  PROCESS  ROUTINE  BASED  ON  'HIE  1JSER"S  SELECTION. 


DO  CASE 

* 

*  CALL  THE  EQUIPMENT  PROJECT  LEVEL  REPORT. 

GASE  PROJRPTS  =  "1" 

DO  EQPP./RPl’ 

* 

*  CALL  'IHE  SERIAL  NUMBER  PROJECT  LEVEL  REPORT. 
CASE  PROJRPTS  =  "2” 

DO  SNOPJRPT 

* 

*  RETURN  TO  ’ll  IE  SPLICE  REPORTING  1EVEL  MENU. 
CASE  PROJRPTS  =  "3" 

* 

ENLX  ASH 


END1JO  (WHILE  I ’KOI  RUTS  -  "  l"  ) 


v-.'  *  .... ....  y  m  -i  ■  >  V1  ■*  -  •  ■  l*.'.' L*V*C 
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51 

52 

53 

54 

55 


* 

*  RETURN  TO  THE  CALLING  PROGRAM 

* 

RETURN 

************************************************************************* 
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4 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

34  | 

35 

36 
3  7 

38 

39 

40  i 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


PROCEDURE  REPORCMD.PRG 


AUTHORS 


PURPOSE 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  AN  OPPORTUNITY  TO  SELECT  A  REPORT 
LEVEL  -  PROJECT  LEVEL,  SITE  LEVEL,  OR  DELIVERY  ORDER 
DATE  LEVEL. 


INPUT  FILES  :  NONE. 

OUTPUT  FILES  :  NONE. 

MODULES  CALLED  :  PROURPTS . PRG ,  SITERPTS.PI-  ,  DATERPTS . PEG 
LOCAL  VARIABLES:  SELECT 

DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <==== 


*  DISPLAY  THE  REPORT  LEVEL  MENU  TO  THE  USER  AND  WAIT  FOR  HIE  SELECTION. 

* 

STORE  "1"  TO  SELECT 
DO  WHILE  SELECT’  <  "4" 

SET  COLOR  'TO  W/B,  W/B,  B 
Q, EAR 

??  FLASH  +  "W.REPORCMD/" 

SET  CONSOLE  OFF 
WAIT  TO  SELECT 
SET  CONSOIT  ON 


*  pr  cess  p  "tine  based  on  the  user"s  selection. 

* 

<  oat 

♦ 

*  '  1AI  .1 ,  llli.  PROJECT  I  EVE!.  REPORTS  PROGRAM. 

CM  IF  SELECT’  -  "I" 

:»>  priori  ts 

* 

♦  '’ALL  IliE  SITL  LEVEE  REPORTS  PROGRAM. 

'IASI.  SELECT  r-  "2" 

IX)  SLITRITS 

t 

f  CALL  ’ll  IE  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  RETORTS  PRCXJRAM. 

CASE  SEITKT  =  "3" 

DO  DA'IERPTS 

* 

*  RETURN  'IX )  THE  MAIN  MENU  PECXJ3AM. 

CASE  SEITKT  .  "4" 
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51  * 

52  ENDCASE 

53  * 

54  ENDDO  (WHILE  SELEKT  <  "4") 

55  * 

56  *  RETURN  TO  THE  CALLING  PROGRAM 

57  * 

58  RETURN 

59  **************************************************  *************  ********** 
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*  PROCEDURE  NAME  :  SELECTOR. PRG 


*  OUTPUT  FILES 


*  AUTHORS 


8  *  PURPOSE 

9  * 


12  * 

13  * 

1 4  * 

15  *  INPUT  FILES  : 

16  * 

17  *  OUTPUT  FILES  : 

18  * 

19  *  MODULES  CALLED  : 

20  * 

21  *  GLOBAL  VARIABLE: 

22  * 

23  *  LOCAL  VARIABLES: 

24  * 

25  *  DATE  LAST  TIME  M 

26  * 

27  *  DBASE  PROGRAM  CD 

28  * 

29  SET  BELL  OFF 

30  SET  CONSOLE  ON 

31  SET  INTENSITY  OFF 

32  SET  SCOREBOARD  OFF 

33  SET  TALK  OFF 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  PERMIT  THE  USER  TO  SELECT  THE  DESIRED  PROCESSING 
ACTION.  CHOICES  INCLUDE:  THE  SPLICE  CONFIGURER, 

LOTUS  1-2-3  FOR  "WHAT- IF"  ANALYSIS,  AND  THE  dBASE  III 
SPLICE  CONFIGURATION  MANAGEMENT  SYSTEM.  CHANGES  TO 
ACTIVE  DIRECTOR ITES  AND  CALLS  TO  dBASE  EXTERNAL  PROGRAMS 
ARE  EFFECTED  WITH  THE  dBASE  "RUN"  COMMAND. 

NONE. 

NONE. 


*  MODULES  CALLED  :  SPLICE.COM;  123. EXE,  MAINMENU . PRG ,  DELAY. PRG,  WS.COM 

* 

*  GLOBAL  VARIABLE:  FLASH 


*  LOCAL  VARIABLES:  ANS 

* 

*  DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  <= 

* 

*  DBASE  PROGRAM  CONFIGURATION  VARIABLES: 


DISPLAY  THE  PROCESS  MENU  TO  '[HE  USER  AND  WAIT  FOR  THE  USER'S  CHOICE. 


37  PUBLIC  FLASH 

38  ??  CHR( 1 45 )  +  "L. SPLICE. WIN/" 

39  STORE  "1"  TO  ANS 

40  DO  WHILE  .T. 

41  SET  COLOR  TO  W+/B,  W+/B,  B 

42  CLEAR 

43  FLASH  =  CHR<145) 

44  ??  FLASH  +  "S. SELECTOR. SCR/" 

45  a  24,0  SAY  SPACE  (80) 

46  SET  COLOR  TO  Rt/B,Rt/B 

47  (d  21,53  GET  ANS  PICT  "9" 

48  READ 

49  DO  WHILE  (ANS  <  "l"  .OR.  ANS  > 

50  IF  (ANS  <  "1"  .OR.  ANS  >  " 


6")  ’[HEN 
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SET  COLOR  TO  W+/R,W+/R 

@  24,23  SAY  "  Response  must  be  between  1  and  6  " 

DO  DELAY 

STORE  "1"  TO  ANS 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
@  21 ,53  GET  ANS  PICT  "9" 

READ 
ENDDO 

* 

*  PERFORM  APPROPRIATE  TASK  BASED  ON  THE  USER’S  CHOICE. 

* 

DO  CASE 

* 

*  CHANGE  THE  ACTIVE  DIRECTORY  TO  TURBO  AND  CALL  SPLICE.COM. 

*  COPY  THE  OUTPUT  . PRN  FILE  TO  THE  dBASE  III  SUBDIRECTORY . 

* 

CASE  ANS  =  "1" 

RUN  CD\TURBO 
RUN  SPLICE. COM 

RUN  COPY  * . PRN  \DBASEI I I \ * . PRN 
RUN  CD\DBASEIII 
STORE  "1"  TO  ANS 

* 

*  CHANGE  THE  ACTIVE  SUBDIRECTORY  TO  LOTUS  AND  CALL  123. EXE.  THE  USER 

*  SUBDIRECTORY  WHILE  IN  LOTUS  MUST  BE  dBASE  III. 

* 

CASE  ANS  =  "2" 

RUN  CLS 

RUN  ECHO  WHEN  IN  123,  CHANGE  THE  DEFAULT  DIRECTORY  'TO  DBASEI1I 
RUN  PAUSE 
RUN  CD\ LOTOS 
RUN  123 

RUN  CD\DBASEI I I 
STORE  "2"  TO  ANS 

* 

*  CALL  THE  OONF IGURAT 1  ON  MANAGEMENT  SYS'IFM  dBASE  ill  PROGRAM 
+ 

CASE  ANS  =  "3" 

DO  MA INMENU 
STORE  "5"  TO  ANS 

* 

*  CHANGE  'TOE  ACTIVE  DIRECTORY  TO  WORSTAR  /AND  EDIT  THE  USER’S  MANUAL 

* 

CASE  ANS  =  "4" 

RUN  CLS 

RUN  CD\ WORDSTAR 
RUN  COPY  USERS. MAN  SPLICE. MAN 
RUN  WS.COM  SPLICE. MAN 
RUN  DEL  SPLICE. MAN  vl 
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RUN  CD\DBASEIII 
STORE  "4"  TO  ANS 


RETURN  THE  USER  TO  dBASE  SYSTEM  CONTROL. 

CASE  ANS  =  "5" 

CLEAR 
CLEAR  ALL 
EXIT 

RETURN  THE  USER  TO  OPERATING  SYSTEM  CONTROL. 

CASE  ANS  =  "6" 

CLEAR 
CLEAR  ALL 

STORE  0  TO  CONTINUE 
QUIT 


ENDCASE 


CONTINUE  PROCESSING  LOOP  CONTROL  CHECK. 


ENDDO  WHILE  ,T. 


—  •  •-  ’  "*  aCm.  .0^4***  .  Mk. .  ■.  , 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  SERNOBLD . PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

*  INPUT  FILES 

* 

*  OUTPUT  FILES 

* 

*  MODULES  CALLED 

* 

*  CALLED  BY 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  BUILD  BLANK  SERIAL  NUMBER  RECORDS. 

SERNOTMP . DBF 

SERNOTMP.DBF 

NONE 

NEWDOADD . PRG 


*  LOCAL  VARIABLES:  CIOTQTY,  INITIAL,  MEFFDATE,  MFEATURE,  MQrY, 

*  MSERIALN ,  MSITE,  R£C_COUNT 

* 


*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  < 

* 


*  IF  NOT  EOF,  DETERMINE  THE  COMPONENT  QUANTITY .  WHILE  THE  QUANTITY 

*  IS  GREATER  THAN  1  ,  BUILD  AND  EXPAND  A  BLANK  SERIAL  NUMBER  RECORD. 

* 


STORE  1  TO  INITIAL 
USE  SERNOTMP 
GO  TOP 
DO  WHILE  .T. 

IF  EOF( )  =  .T.  THEN 
EXIT 

ELSE 

* 

*  IF  NOr  EOF  AND  NOr  A  BLANK  RECORD,  STORE  ITEMS  TO  MEMORY  VAR I AB IDS. 

* 

IF  INITIAL  =  1  IllEN 

SET  COLOR  TO  GR+/B,  GR+/B 
9  17,21  SAY  "FEATURE:" 
a  17,40  SAY  "RECORD  NUMBER:" 

9  19,18  SAY  "Building  arid  expanding  sub -record  " 
a  19,56  SAY  "of" 

STORE  0  'TO  INITIAL 
END  IF 

SEP  COLOR  'TO  /BR,  /BR 
a  17,31  SAY  FEATURING  PICT  "999999" 

SET  COLOR  TO  R+/B,  R  +  /B 
a  17,55  SAY  RECNOI )  PLOT  "9999" 

SEr  COLOR  TO  W+/BG,  W+/BG 
STORE  1  'TO  RECjCUUMT 
a  19,52  SAY  REC  COUNT  PICK  "«99" 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 


@  19,59  SAY  QTY  PICT  "999" 

STORE  EFFDATE  TO  MEFFDATE 
STORE  SITENO  TO  MSITE 
STORE  FEATURENO  TO  MFEATURE 
STORE  QT Y  TO  MCfTY,  CTOTQTY 
REPLACE  TOTQTY  WITH  MQTY 
STORE  '  '  TO  MSERIALN 

DO  WHILE  MQTY  >  1 

REC_ODUNT  =  REC_COUNT  +  1 
@  19,52  SAY  REC  COUNT  PICT  "999" 
INSERT  BLANK 

REPLACE  TOTQTY  WITH  CTOTQTY 
REPLACE  QTY  WITH  MQTY  -  1 
REPLACE  EFFDATE  WITH .MEFFDATE 
REPLACE  SITENO  WITH  MS  HE 
REPLACE  FEATURENO  WITH  MFEATURE 
REPLACE  SERIALNO  WITH  MSERIALN 
MQTY  =  MOTY  -  1 
ENDDO  WHILE  MOTY  >  1 

♦ 

SKIP 

END IF  DOF( )  =  .T. 

* 

ENDDO  WHILE  .T. 

♦ 

*  CLEAR  OUT  THE  STATUS  FIELD  LINES 

* 

SET  COLOR  TO  W+/B,  W+/B 
(3  15,10  SAY  SPACE ( 60 ) 

@  17,10  SAY  SPACE ( 60) 

&  19,10  SAY  SPACE ( 60 ) 

* 

*  REIERN  TO  THE  CALLING  PROGRAM 


RELEASE  ALL  LIKE  M* ,  CTOTQTY,  INITIAL,  RECjCOUNT 

CLOSE  DATABASES 

RETURN 

t****tt*********+**++****t*ttttt***t*t*t*ttt++tt++*t***+tttt*ttt*t***+*tt 
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10 
1 1 
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19 
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21 
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29 
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37 
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44 

45 

46 

47 

48 

49 

50 


*  PROCEDURE  SERNOCMD.PRG 

* 


*  AUTHORS 

* 

* 

* 

* 

*  PURPOSE 

* 

* 

* 

*  INPUT  FILES 

* 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  THE  OPPORTUNITY  TO  INPUT 
THE  COMPONENT  SERIAL  NUMBER  OR  REVIEW  THE 
'HIE  SERIAL  NUMBER  DATABASE  RECORDS. 

NONE 


*  OUTPUT  FILES  : 

* 

*  CALLED  BY  : 

* 

*  MODULES  CALLED  : 

* 

*  LOCAL  VARIABLES: 

* 


NONE 

MA INMENU. PRG 

SERNOUPD . PRG ,  SERNOREV . PRG 
SELEKT 


*  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  < 

* 


*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE  SELECTION. 

* 

STORE  "1"  TO  SELEKT 
DO  WHILE  SELEKT  <  "3" 

SEr  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W.SERNOCMD/" 

SET  CONSOLE  OFF 
WAIT  TO  SELEKT 
SET  CONSOLE  ON 

* 

*  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

* 

DO  CASE 

* 

*  CALL  THE  SERIAL  NUMBER  UPDATE  PRIXIRAM. 

CASE  SELEKT  =  "l" 

DO  SERNOUPD 

* 

*  CALL  SERIAL  NUMBER  REVIEW  PROGRAM. 

CASE  SELEKT  =  "2" 

DO  SERNOREV 

* 

*  RETURN  'TO  'll  IE  MAIN  MENU  PROGRAM. 

CASE  SELEKT  =  "3" 


ENDCASE 
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51  * 

52  ENDDO  (WHILE  SELEKT  <  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 

57  ★  ♦♦♦♦♦Jlejlcitejfcjfcjlc  +  ^^jlcslcjlcjfcjfcjfrjlcifcjlc********!^***************?***:^********^*******:***** 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  246 
Page  1  SERNOREV . PRG  Program  Listing 


1  *  PROCEDURE  SERNOREV. PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  TO  ENABLE  THE  USER  TO  REVIEW  ALL  RECORDS  IN  THE 

9  *  SERIAL  NUMBER  DATABASE . 

10  * 

11  *  INPUT  FILES  :  SERI ALNO . DBF ,  SERNOSIT.NDX 

12  * 

13  *  OUTPUT  FILES  ;  SERI ALNO. DBF,  SERNOSIT.NDX 

14  * 

15  *  CALLED  BY  :  SERNOCMD . PRG 

16  * 

17  +  MODULES  CALLED  :  DEnAY.I'RG 

18  * 

19  *  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM,  LOSI7E 

20  * 

21  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  CURRENTNO,  DOF,  FIRST_REC,  LAST_REC, 

22  *  MFEAT,  MFEATURE,  MSITE,  TOF 

23  * 

24  *  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <=====-==== 

25  * 

26  *  CASE  SELECTION  =  2  REVIEW  SERI/M,  NUMBER  FILE  RECORDS 

27  * 

28  *  USE  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  THE 

29  *  USER  TO  INPUT  THE  SITE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  POINT. 

30  * 

31  SET  ESCAPE  OFF 

32  SET  TALK  OFF 

33  SELECT  1 

34  USE  SERIALNO 

35  GO  TOP 

36  SET  03 LOR  TO  W+/B,  W+/B,  B 

37  CLEAR 

38  LF  EOF (  )  =  .T.  THEN 

39  SET  OOIjOR  TO  W+/R,  W  +  /R 

40  <)  13,22  SAY  "  The  SERIAL,  NUMBER  DaUiixi.se  its  EMPTY!  " 

4 1  DO  DELAY 

42  RETURN 

4  3  END  IF 

44  ??  FLASH  +  "S. SERIALNO. SCR/" 

45  SET  COLOR  TO  W+/B,  W+/B 

46  '4  24,0  SAY  SPACE (80) 

47  SET  COLOR  'TO  R*/  ,  R  +  / 

48  -1  3,26  SAY  "  SERIAi,  NUMBER  REVriW  IT  1RMAT  " 

49  STORE  "  Enter  00  to  sl.it  I.  at  'TOE,  99  to  start  at  ITT  -  ,r  a  site  riunit  >« -i  " 

60  "between  "  ♦  IDHiTE  »  "  and  "  1  Ills  FIT:  .  "  "  'TO  MESSAGE 


383 
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UNCLASSIFIED 


F/G  9/2 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


DO  WHILE  .T. 

SET  COLOR  TO  /W,  /W 
ia  24,0  SAY  MESSAGE 
SET  COLOR  TO  /BR,  /BR 
STORE  '00'  TO  MSITE 
@  09,20  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.; 

MSITE  =  '99'  )  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  + ; 

HISITE  +  ' ,  Zero  ( 00 )  or  99  1  TO  ERROR 
@  24,13  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 
IF  MSITE  =  '00'  THEN 
GO  BOTTOM 

STORE  RECNOl )  TO  LAST_REC 
GO  TOP 

STORE  RECNO(  )  TO  FIRST_REC 

ELSE 

GO  TOP 

STORE  RECNOl )  TO  EIRSTJ1EC 

go  bottom 

STORE  RECNO( )  TO  LAST_REC 
ENDIF  MSITE  •=  '00' 

EXIT 

ELSE 

USE  SERIALNO  INDEX  SERNOSIT 

GO  TOP 

FIND  &MSITE 

IF  EOF(  )  =  .T.  'll  1EN 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  records  exist  tor  site  number  "  +  MSI'IE 
",  try  again  "  TO  ERROR 
a  24,16  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

EXIT 

ENDIF  DOF(  )  =  .'I'. 

ENDIF  ( MS  HE  =  '00'  .OR.  MSI'IE  -  '99') 

ENDIF  .NUT.  (  (MSI'IE  >=  '00*  .AND.  MSITE  <=  HISITE)  .OR.  MSITE 
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ENDDO  WHILE  .T. 

* 

STORE  SPACE(IO)  +  'Enter  "00  "  to  start  at  TOF  or  a  six  digit  '  +; 

'feature  number'  +  SPACE(IO)  TO  MESSAGE 
IF  (MS HE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
DO  WHILE  .T. 

SET  COLOR  TO  /W,  /W 
0  24,0  SAY  MESSAGE 
SET  COLOR  TO  /BR,  /BR 
STORE  '00  'TO  MFEAT 
a  13,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 

MFEAT  =  ' 00  ' )  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

HIFNUM  +  '  or  Zero  (00)  ’  TO  ERROR 
@24,9  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

IF  (MFEAT  >=  LCFNUM  .AND.  MFEAT  <=  HIFNUM) 

IF  MFEAT  =  '99  '  THEN 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOFNUM  + ; 

'  and  '  +  HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 
LOOP 

END IF  MFEAT  =  '99 

STORE  MSITE  +  MFEAT  TO  MKEY 

USE  SERIALNO  INDEX  SERNOFEA 

GO  TOP 

FIND  &MKEY 

IF  EOF ( )  =  .T.  THEN 

SEI’  COLOR  TO  W/B,  W/B 
d  24,0  SAY  SPACE! 80) 

SET  COIOR  TO  W+/R,  W+/R 

STORE  "  No  record  with  feature  number  "  ♦  MFEAT  +; 

"  exists,  try  again  "  TO  ERROR 
(■1  24,12  SAY  ERROR 
DO  DELAY 
LOOP 

EIT3E 

EXIT 

END IF  EOF( )  =  .T. 
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151 

152 

153 

154 


157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 
1  91 

192 

193 

194 

|  195 

196 

197 

198 

1  99 
200 


ELSE 

EXIT 

ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

ENDIF 

ENDDO  WHILE  .T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  H1SITE) 

* 

STORE  "  At  beginning  of  records  for  site  number  "  +; 

MSITE  +  "  "  TO  TOF 

STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 
SET  COLOR  TO  W/B,  W/B 

@24,0  SAY  SPACE ( 80 ) 

♦ 

DO  WHILE  .T. 

* 

*  USING  THE  SERIAL  NUMBER  REVIEW  FORMAT  FILE  TO  PRODUCE  THE  SCREEN 

*  DISPLAY,  IF  NOT  AT  THE  END  OF  FILE. 

* 

STORE  FEATURENO  TO  MFEATURE 
SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 
FIND  & MFEATURE 
STORE  CLIN  TO  MCLIN 
STORE  DESCIPT  TO  MDESCIPT 
SELECT  1 

SET  COLOR  TO  R+/B,  R+/B 
@  6,45  SAY  RECNO( )  PICT  "9999" 

SET  COLOR  TO  /BR,  /BR 
@  9,20  SAY  SITENO  PICT  "99" 

(8  9,68  SAY  EFFDATE  PICT  "999999" 

@  12,45  SAY  MCLIN  PICT  "9999" 

4  13,45  SAY  FEATURENO  PICT  "999999" 

@  14,45  SAY  MDESCIPT  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 

@  15,45  say  ToryrY  pict  "999" 

SET  COLOR  TO  W+/BG,  W+/BG 
@  17,45  SAY  C/TY  PICT  "999" 

@  17,52  SAY  TOTOTY  PICT  "999" 

SET  COLOR  TO  /BR,  /BR 
@  19,45  SAY  SERIALNO  PICT  "!!!!!!!!" 

ENDIF 

* 

SET  COLOR  TO  R*-/B,  Rf/B 
STORE  "N"  TO  CHOICE 
9  22,68  GET  CHOICE  PICT  "l" 

READ 

* 

*  ENSURE  THAT  TUB  USER’S  PROMPT  IS  EITHER  ”N" ,  "p"  OR  "X" 

* 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "p"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  ((Tl'HCE  --  "N"  .OR.  CHOICE  -  "P"  .OR.  CHOICE  =  "X" )  THEN 


•3  O  /E 
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SET  COLOR  TO  W+/R,  W+/R 

@  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 
DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
fl  22,68  GET  CHOICE  PICT 
READ 
ENDDO 

* 

SET  COLOR  TO  W+/R,  W+/R 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  "N"  THEN 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  BOF( )  =  .T.  THEN 
SKIP  -  1 
@  24,21  SAY  EOF 
DO  DELAY 
LOOP 

ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 
a  24,21  SAY  DOF 
DO  DELAY 
LOOP 
ENDIF 

ENDIF  EOF ( )  =  .T. 

ELSE 

IF  RECNO( )  =  LAST_REC  THEN 
GO  TOP 

EISE 

SKIP 

ENDIF 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDIF  CHOICE  =  "N" 

* 

*  SKIP  TO  THE  PREVIOUS  RECORD 


STORE  RECNO( )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <  =  HISITE)  THEN 
SKIP  -  1 

IF  BOF ( )  -  .T.  THEN 
GOTO  CURRENTNO 
24,16  SAY  TOF 
DO  DEI  .AY 
UX)P 


» ' V- - 


^  XT*  rw  V"  *  b  ’»' 


»  w  *  -  jr-  ir»  fc'"  IT*  v*  ywvv  v^r  - 
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»»*•» 
*  »* 


251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 


ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP 

a  24,16  SAY  TOF 
DO  DELAY 
LOOP 
END  IF 

ENDIF  BOF ( )  =  ,T. 

ELSE 

IF  REGNO  (  )  =  FIRST_REC  'll  JEN 
GO  BOTTOM 

ELSE 

SKIP  -  1 
ENDIF 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE* ) 


266  ENDIF  CHOICE  =  "P" 

267  * 

268  *  USER  HAS  DECIDED  TO  EXIT  11  IE  REVIEW 

269  * 

270  IF  CHOICE  =  "X" 

271  EXIT 

272  ENDIF 

273  ENDDO  WHILE  .T. 

274  * 

275  *  RETURN  TO  CALLING  PROGRAM. 

276  * 

277  RELEASE  ALL  LIKE  M* ,  ACCEPT,  a  10 ICE,  CURRENTNO,  EOF,  FIRST_REC, ; 

278  L AST_REC ,  TOF 

279  CLOSE  DATABASES 

280  REITJRN 

7R1  ****************************************-**********+****+************++*** 
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2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 
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* 

* 

* 

* 

* 


* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 


PROCEDURE  SERNOUPD.PRG  ! 


AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

LCDR  ROBERT  F.  BRADO,  USN 

LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PURPOSE  :  TO  ENABLE  THE  USER  TO  INPUT  THE  SERIAL  NUMBERS  FOR 

THE  SERIAL  NUMBER  DATABASE. 


INPUT  FILES  :  SERIALNO.DBF,  SERNOSIT.NDX 
OUTPUT  FILES  :  SERIALNO.DBF,  SERNOSIT.NDX 


CALLED  BY 


SERNOCMD . PRG 


MODULES  CALLED  :  DELAY. PRG 

GLOBAL  VARIABLE:  HIDATE,  HIFNUM,  HISITE,  LODATE,  LOFNUM ,  LOS1TE 

LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  CURRENTNO,  EOF,  INTRO,  MDATE , ; 

MDAY,  MESSAGE,  MMONTH,  MOLDATE,  MYEAR,  NODATE,; 
NOFIND,  SYS DATE ,  TOF 

DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <========== 


*  CASE  SELECTION  =  2  REVIEW  SERIAL  NUMBER  FIuE  RECORDS 

* 

*  USE  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  TIE 

*  USER  TO  INPUT  THE  SITE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  POINT. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 
SELECT  1 
USE  SERIALNO 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  Wi/R,  W+/R 

a  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

UO  DI2LAY 
RETURN 
EOIF 

n  FLASH  +  "S. SERIAI.NO. SCR/" 

SET  COLOR  TO  Wi/B,  W+/B 
a  24,0  SAY  SPACE! 80) 

SET'  COLOR  TO  Rt/  ,  R+/ 

'4  3,26  SAY  "  SERI/M,  NUMBER  UPDATE  FORMAT  " 

STORE  SPACE)  22)  +  "Enter  a  Site  Number  Imtwr'en  "  ♦  UJS1TE  ♦ ; 


SB 
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51 

52 

53 
54; 


58: 
b?  ! 
60 
51  , 
62 
63  i 
64 ! 

65  | 

66  ( 

67  | 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
9  3 

94 

95 

96 

97 

98 

99 
00 


"  and  "  +  HISITE  +  SPACE! 21)  TO  MESSAGE 
USE  SERIALNO  INDEX  SERNOSIT 

* 

DO  WHILE  .T. 

SET  COLOR  TO  /W,  /W 
a  24,0  SAV  MESSAGE 
GET  COLOR  '!TJ  /BR,  /BR 
STORE  U.;SITE  TO  MSITE 
i  ,9,20  GET  MSITE  PICT  ‘ 9Q 1 
READ 

IF  .LIT.  (MSITE  >=  LOS  TIE  .AND.  MSITE  <=  HISITE) 

SET  ODD  JR  70  W/B,  W/B 
i  .'4,9  SAV  SPACE! 80) 

SET  OIOR  TO  W ♦  / R ,  W  +  /R 

S  I*  RE  ‘  Response  must  be  between  1  +  LOS1TE  +; 

’  ini i  ’  -  HISITE  *■  '  ’TO  ERROR 
•i  .4,22  SAV  ERROR 
;*  .  e;  Ail 

.OOP 

EISE 

GO  TOP 

FIND  ‘’.MSITE 

IF  EOF!  )  =  .T.  71 1EN 

SEr  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE! 80 ) 

SEr  COLOR  TO  Wt/R,  Wi/R 

STORE  "  No  records  exist  for  site  number  "  +  MSITE 
",  try  again  "  TO  ERROR 
(4  24,16  SAV  ERROR 
DO  DELAY 
LOOP 

ELSE 

EXIT 

END IF  EOF! )  =  .T. 

END IF  .NOT.  (MSITE  >=  LOS  TIE  .AND.  MSITE  <=  HIS  TIE) 

ENDDO  WHILE  .NOT.  (MSITE  >=  LOS1TE  .AND.  MSITE  <=  HISITE) 

* 

STORE  SPACE!  17)  4  ’input  Effective  Date  (Ramie  1  4  I/ODATE  * ; 

’  to  ’  4  HIDA'IE  4  ’)’  4  SPACE!  17)  ’IX)  MESSAGE 
STORE  DTOC ( DATE ( ) )  TO  SYSDATE 

S'TORE  SUBS'IR  ( SYSDATE  ,7,2)  »  SL’BS'IR  ( SYSDATE  ,1,2)  *  ; 

SUBSTR  ( SYSDATE  ,4,2)  1X0  MDA'IE 
STORE  0  TO  NOFIND 
S'TORE  "000000"  TO  MOEDATE 
USE  SER I /UNO  INDEX  SERNODAT 
* 

DO  WHILE  .NOr.  (MOEDATE  >=  DJDATF.  .AND.  MOEDATE  •  =  I1IDATH) 

set  an /OR  to  /w,  /w 

0  24,0  SAY  MESSAGE 
S'TORE  MDATE  TO  M)1  .DATE 
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SET  COLOR  TO  /BR,  /BR 
4  9,68  GET  MOLDATE  PICT  "999999" 

READ 

DO  WHILE  .T. 

IF  .NOT.  ( SUBSTR ( MOLDATE ,1,2)  >  "83"  .AND.; 

SUBSTR ( MOLDATE ,1,2)  <=  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  Year  portion  of  date  must  be  between  84  and  ^9 
TO  ERROR 

;a  24,16  SAY  ERROR 
DO  DELAY 

SET  Oil  OR  TO  /W ,  /W 
a  24,0  SAY  MESSAGE 
STORE  SUBSTR (MDATE,1  , 2 )  TO  MYEAR 
SCT  COLOR  TO  /BR,  /BR 
a  9,68  GET  MYEAR  PIC!  "99" 

READ 

STORE  MYEAR  +  SUBS' IR ( MOLDATE , 3 , 4 )  TO  MOLDATE 
LOOP 

ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

LF  .NOT.  {SUBSTR  (MOl  .DATE,  3,2)  >=  "01"  .AND.; 

SUBSTR ( MOLDATE ,3,2)  <=  "12")  THEN 
SET  COLOR  TO  W/B,  W/B 
4  24,0  SAY  SPACE! 80) 

SET  COLOR  'TO  W+/R,  W+/R 

4  24,16  SAY  "  Mon  tli  portion  of  date  must  lief  ween  01 

DO  DELAY 

SE1*  COLOR  'TO  /W,  /W 

a  24,0  SAY  MESSAGE 

STORE  SUBSTR (MDA'l'E,  3,2)  'TO  MMUNTll 

SET  COLOR  TO  /BR,  /BR 

a  9,70  GET  MMDNTH  PICT 

READ 

STORE  SUBSTR  (MOLDATE,  1  ,2)  »  MM1  'NTH  •; 

SUBSTR ( MOl .DATE ,5,2)  TO  Mil  DATE 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  (  ( SUBSTR  ( MOl  DATE ,  3, 2)  ="04"  .'  ’R  .  .  T.'BS’IR  1  Ml  >1  DATE  ,  3 , 2  L  "  11  - 
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SUBSTR ( MOLDATE , 3 , 2 ) ="09"  .OR.  SUBSTR ( MOLDATE , 3 , 2 ) ="1 1 " )  .AND.; 
.NOT.  ( SUBSTR ( MOLDATE , 5 , 2 ) >  =  "01 "  .AND.; 
SUBSTR(MOLDATE,5,2)<="30") )  THEN 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

0  24,16  SAY  "  Dav'  portion  of  date  must  be  between  01  and  30  " 
DO  DELAY 

SETT  COLOR  'TO  /W,  /W 
fl  24,0  SAY  MESSAGE 
STORE  SUBSTR (MDATE, 5,2)  TO  MDAY 
SET  COLOR  TO  / BR ,  / BR 

?  9,72  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,4)  *  MDAY  'TO  MOLDATE 
LOOP 


IF  (SUBSTR (MOLDATE, 3, 2)  =  "02"  .AND.  .NOT'.; 

(SUBSTR (MOLDATE, 5, 2)  >=  "01"  ./V®.; 

SUBSTR (MOLDATE, 5,2)  <=  "28"))  THEN 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

0  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  " 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
0  24,0  SAY  MESSAGE 
STORE  SUBSTR (MDATE, 5, 2)  TO  MDAY 
SET  COLOR  TO  /BR,  /BR 
a  9,72  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE, 1 ,4)  +  MDAY  'TO  MOL, DATE 
LOOP 

ELSE 


IF  .NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND. ; 

SUBSTR ( MOLDATE ,5,2)  <=  "31")  THEN 
SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE ( 80 ) 

SET  COLOR  IT)  W+/R,  W+/R 

■1  24,16  SAY  "  Day  portion  of  '.late  must  he  let.ween  01  and  31  " 
DO  DELAY 

SET  COLOR  'TO  /W,  /W 
0  24,0  SAY  MESSAGE 
STORE  SUBSIR  (MDATE, 5, 2)  IT)  MDAY 
SET  COLOR  It)  /BR,  /BR 
•a  0,72  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSIRt  MOLDATE,  1,4)  •  MDAY  IT '  M  v  .DATE 


APPENDIX  B:  MAINTENANCE  MANUAL 


Page  256 


Page  5 


SERNOUPD . PRG  Program  Listing 


201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 
2  39 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


LOOP 

ELSE 

EXIT 
ENDLF 
END  IF 
END  I F 

ENDDO  WHILE  .T. 

* 

*  SEE  IF  THE  USER'S  DATE  IS  A  VALID  DATE  FOR  THE  SITE  SELECTED 

* 

STORE  MSITE  +  MOLDATE  TO  MKEY 

GO  TOP 

FIND  &MKEY 

IF  EOF ( )  =  .T.  THEN 

NOFIND  =  NOFIND  +  1 
IF  NOFIND  =  3  THEN 

SET  COLOR  TO  W+/B,  W+/B 
'd  24,0  SAY  SPACE (80) 

??  FLASH  +  "W.SERNOFND/" 

SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
IF  ANS  =  "2"  THEN 

RELEASE  ALL  LIKE  M*,  ACCEPT,  ANS,  CHOICE,; 

CTJRRENTNO,  EXOF,  INTRO,  NODATE,; 

NOFIND,  SYSDATE,  TOF 
CLOSE  DATABASES 
RETURN 

ELSE 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  0  TO  NOFIND 
STORE  '000000'  TO  MOLDATE 
LOOP 

END IF  ANS  =  "2" 

ELSE 

SET  COLOR  TO  W/B,  W/B 
<3  24,0  SAY  SPACE! 80) 

S'TORt,  "  EFFECTIVE  DATE  "  v  MOLDATE  4  "  ,]nes  not  exist  I.  1 
MSITE  +  ",  try  another  "  TO)  NODATE 
SET  COLOR  TO  Wt/R,  W+/R 
d  24,10  SAY  NODATE 
DO  DELAY 

SET  LOIOR  TO  /W,  /W 
d  24,0  SAY  MESSAGE 
STORE  "000000"  TO  MOLDATE 
UhP 

END IF  NOFINU  =  3 
END IF  BJF( )  =  .T. 

ENDDO  WHILE  .NOT.  (MOLDATE  >4  IODATE  .AND.  MOLDATE  4-  III  DATE) 


;  l  t  • 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290  i 

291  j 

292  I 

293  | 

294 

295 

296 

297 

298 

299  I 

300  j 


* 

STORE  SPACE(IO)  +  ' Enter  a  six  digit  feature  number  between  '  + 
'  and  '  +  HIFNUM  +■  SPACEdl  )  TO  MESSAGE 
SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  '999999'  TO  MFEAT 
STORE  0  TO  NOFIND 
* 

DO  WHILE  .T. 

DO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

SET  COLOR  TO  /BR,  /BR 
STORE  '010201'  TO  MFEAT 
<a  13,45  GET  MFEAT  PICT  '999999' 

READ 

IF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 
SET  COLOR  TO  W/B,  W/B 
v?  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  Wv/R 

STORE  '  Response  must  be  between  '  +  LOFNUM  + ; 

1  and  '  +  HIFNUM  +  '  '  TO  ERROR 
<a  24,17  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
LOOP 

ELSE 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 
USE  DESCRIP  INDEX  DESCRIP 
GO  TOP 
FIND  S MFEAT 
IF  UOF(  )  =  .T.  THEN 

NOFIND  =  NOFIND  f  1 
IF  NOFIND  =  3  THEN 

SET  COLOR  TO  Wt/B,  W  +  /B 
<3  24,0  SAY  SPACE (80) 

??  FLASH  +  "W.SER'iOFND/" 

SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
IF  ANS  =  "2"  THEN 

RELEASE  ALL  LIKE  M*,  ACCEPT,  /VIS ,  Oil' 
CURRENTOO,  EOF,  INTRO,  NODAT 
NOFIND,  SYSDA'IE ,  TOF 
CIOSE  DATABASES 
RETURN 

ELSE 

SET  COLOR  TO  /W,  /W 
•i  24,0  SAY  MESSAGE 
SIORE  0  TO  NOFIND 
STORE  ' 999999 '  TO  MFEAT 


LOFNUM  +; 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311  ! 

312 
31  3 

314 

315 

316 

31?i 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 
329! 

330 

331  j 

332 
333! 
334  j 
3  35  | 

336  | 

337  | 
3  38  j 
3  39  J 

340  i 

341 

342  i 
343; 

344  | 

345  | 
346! 

347  | 

348 


350 


LOOP 

ENDIF  ANS  =  "2" 

ELSE 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  record  exists  for  feature  number 
MFEAT  v  ",  try  again  "  TO  ERROR 
a  24,12  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO  / W,  /W 
a  24,0  SAY  MESSAGE 
STORE  ’999999'  TO  MFEAT 
LOOP 

ENDIF  NOFIND  =  3 
ENDIF  EOF( )  =  .T. 

ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

ENDIF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

ENDDO  WHILE  .NOT.  (MFEAT  >  =  LOFNUM  .AND.  MFEAT  c=  HIFNUM) 

STORE  MOLDAIE  +  MS  I 'IE  *  MFEAT  'ID  MKEY 

USE  SERIALNO  INDEX  SERNOPRJ 

GO  TOP 

FIND  &MKEY 

IF  EOF ( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
•a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  Feature  number  "  +  MFEAT  +  "  for  site  "  +  MSF1E  + ; 

"  on  date  "  *  MOLDATE  ♦  ; 

does  not  exist,  try  again  "  TO  ERROR 
a  24,0  SAY  ERROR 
DO  DELAY 

SCT  COLOR  TO  W+/B,  W+/B 
??  FLASH  +  "W.SERNOFNU/" 

SET  CONSOLE  OFF 
WAIT  TO  ANS 
SCT  CONSOLE  014 
IF  ANS  =  "2"  THEN 

RELEASE  ALL,  LUKE  M* ,  ACCEPF,  ANS,  CHOKE),  CURRENTNO,  EOF,; 

INTRO,  NODATE,  NOFIND,  SYSDATE ,  TOF 
CLOSE  DATABASES 
REIIJRN 

HI  OF 

SCT  OUI OR  TO  W/'H,  W/B 
•i  21,10  SAY  SPACE (60) 

SET  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
STORE  'uqu.,.,,,'  ir  j  Vj.jyyj- 
UJOP 


395 
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ELSE 

EXIT 

END IF  EOF ( )  =  .T. 

ENDDO  WHILE  .T. 

* 

STORE  "  At  beginning  of  records  for  site  number  "  +; 
MSITE  +  "  "  TO  TOF 

STORE  "  At  end  of  records  for  site  number  "  +  MSITE  + 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 


’TO  EOF 


STORE  SPACE(16)  +■  'Press  "Page  Down"  key  to  terminate  record  update'  +  ; 

SPACE( 1 6 )  TO  MESSAGE 
STORE  1  TO  INTRO 
DO  WHILE  .T. 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 

* 

*  USING  THE  SERIAL  NUMBER  UPDATE  FORMAT  FILE  TO  PRODUCE  THE  SCREEN 

*  DISPLAY,  IF  NOT  AT  THE  END  OF  FILE. 


STORE  SERIALNO  TO  MSERIAL 
STORE  FEATURENO  TO  MFEAT 

INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

IF  INTRO  =  1  THEN 
STORE  0  TO  INTRO 
??  FLASH  +  "W.SERNOUPD/" 

SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
ENDIF 

SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 
FIND  8 MFEAT 
STORE  CLIN  TO  MCLIN 
STORE  DESCIPr  TO  MDESCIPI’ 

SELECT  1 

SET  COLOR  TO  R+/'B,  R+/B 
@  6,45  SAY  RECNO( )  PICT’  "9999" 

SET  COLOR  TO  /BR,  /BR 
a  9,20  SAY  SITENO  PICT  "99" 

@  9,68  SAY  EFFDATE  PICT  "999999" 

@  12,45  SAY  MCLIN  PICT’  "9999" 

3  13,45  SAY  MFEAT  PICT  "999999" 

@  14,45  SAY  MDESCIPI’  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
3  15,45  SAY  TOTOI’Y  PICT  "999" 
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401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 
4  33 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 


SET  COLOR  TO  W+/BG,  W+/BG 
0  17,45  SAY  QTY  PICT  ”999” 

@  17,52  SAY  TOTCfTY  PICT  "999" 

SET  COLOR  TO  /BR,  /BR 
@  19,45  GET  MSERIAL  PICT  "  1  i  i  i  i  I  i  I  " 

READ 

SET  COLOR  TO  W/B,  W/B 
0  24,0  SAY  SPACE (80) 

IF  .Mar.  (SERIALNO  =  MSERIAL)  THEN 

ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES 

SET  COLOR  TO  W+/B,  W+/B 

@  21,12  SAY  "Do  you  want  to  accept  the  change?  (Yes  or  No):" 
SET  COLOR  TO  R+/B,  R+/B 
@  21,48  SAY  "Y" 

0  21,55  SAY  "N" 

STORE  "N"  TO  ACCEPI 
@  21,61  GET  ACCEPT  PICT 
READ 


ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (ACCEPr  =  "N"  .OR.  ACCEPT  =  "Y" ) 

IF  HOT.  (ACCEPr  =  "N"  .OR.  ACCEPr  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

0  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "N"  TO  ACCEPT 
END  IF 

SET  COLOR  'TO  R+/B,  R+/B 
<1  21,61  GET  ACCEPI’  PLOT  "l" 

READ 
Mi  DlJO 

SEP  OOLUR  TO  W/B,  W/B 
a  21,10  SAY  SPACE) 55) 


STORE  'HIE  CLANGED  EDIT  FIELD  FROM  THE  WORK  AREA  INTO  THE 
DATABASE  VARIABLE 


IF  ACCEPI’  =  "Y"  'll IEN 

REPIjACE  SERIALNO  WI'IH  MSERIAL 

EISE 

SET  COLOR  'TO  /HR ,  /BR 
a  19,45  SAY  SERIALNO  PICT  "!!!!!!!!" 
ENDIF  ACCEPT  =  "Y" 

END IF  .NOT.  (SERIALNO  =  MSERIAL) 


SET  COLOR  'TO  R+/B,  Rt/Li 
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451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 


STORE  "N"  TO  CHOICE 
@  22,68  GET  CHOICE  PICT  "l" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "N",  "p"  OR  "X" 

* 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  = 
IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X 
SET  COLOR  TO  W+/R,  Wt/R 

§  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

DO  DELAY 

STORE  "N"  TO  QIOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
a  22,68  GET  CHOICE  PICT 
READ 
ENDDO 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  "N"  THH4 

IF  (MSITE  >=  LOSITE  .AND.  MS  HE  <=  HISITE)  THEN 
SKIP 

IF  EOF ( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
0  24,21  SAY  EOF 
DO  DELAY 

ELSE 

IF  .NOT.  (SITENO  =  MSITE!  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
,a  24,21  SAY  EOF 
DO  DELAY 
ENDIF 

ENDIF  EOF(  )  =  .T. 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  IIIS1TE) 

ENDIF  CHOICE  =  "N" 

* 

*  SKIP  TO  HIE  PREVIOUS  RECORD 

* 

IF  CHOICE  =  "P"  H1EN 

STORE  RECNO ( )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  '=  HISITE)  HIEN 
SKIP  -  1 

IF  BOF ( )  =  .T.  HIEN 
GOIO  CURRENTNO 
SET  COLOR  TO  Wt/R,  W+/R 
a  24,16  SAY  WF 
DO  DEI  AY 


"X") 

")  HIEN 
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501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

51 1 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 


ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP 

SET  OOLOR  TO  W+/R,  W+/R 
@  24,16  SAY  TOF 
DO  DELAY 
ENDIF 

ENDIF  BOF( )  =  ,T. 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDIF  CHOICE  =  "P" 

*  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

♦ 

IF  CHOICE  =  "X" 

EXIT 

ENDIF 

ENDDO  WHILE  .T. 

* 

*  RETURN  TO  CALLING  PROGRAM. 

* 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,  CURRENTNO,  EOF,  INTRO,; 

NODATE,  NOFIND,  SYSDATE,  TOF 
CLOSE  DATABASES 
RETURN 

********************************************+**************************** 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
1  3 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50  | 


*  PROCEDURE  SITERPTS . PRG 

* 


*  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 


*  PURPOSE  :  PROVIDE  THE  USER  A  SELECTION  OF  SITE  LEVEL  RETORTS. 

* 


*  INPUT  FILES  : 

* 

*  OUTPUT  FILES  : 

* 

*  CALLED  BY  : 

* 

*  MODULES  CALLED  : 

* 

*  LOCAL  VARIABLES: 

* 


NONE. 


NONE. 

REPORCMD . PRG 

EQPSTRPT . PRG ,  MNLSTRPT . PRG ,  SNOSTRPT.PRG 
SELEKT 


*  DATE  LAST  TIME  MODIFIED  =========^>  18  DECEMBER  1985  < 

* 


*  DISPLAY  THE  PROCESS  MENU  TO  HIE  USER  AND  WAIT  FOR  THE  SELECTION. 

* 

STORE  "1"  TO  SITERPTS 
DO  WHILE  SITERPTS  <  "4" 

SET  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W. SITERPTS/" 

SET  CONSOLE  OFF 
WAIT  TO  SITERPTS 
SET  CONSOLE  ON 


*  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

♦ 

TO  CASE 

* 

*  CALL  11  IE  EQUIPMENT  SHE  ILVEL  REPORT. 

CASE  SITERPTS  =  "1" 

DO  EQPSTRPT 

* 

*  CALL  'HIE  MANUAL  SITE  1  .EVE! ,  REPORT. 

CASE  SITERPTS  =  "2" 

TO  MNLSTRPT 

* 

*  CALL  THE  SERIAL  NUMBER  SITE  LEVEL  RETORT. 
CASE  SITERPTS  =  "3" 

DO  SNOSTRPT 

* 

*  RETURN  TO  ’HIE  SPLICE  RETORTING  ILVEL  MENU. 

CASE  SITERPTS  =  "4" 


lilil 
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51  * 

52  ENDCASE 

53  * 

54  ENDDO  (WHILE  SITERPTS  =  "4") 

55  * 

56  *  RETURN  TO  THE  CALLING  PROGRAM 

57  * 

58  RETURN 

59  ************************************************* ************************ 
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*  AUTHORS 


*  PURPOSE 


*  INPUT  FILES 


*  CAUSED  BY 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  SERIAL  NUMBER 
EFFECTIVE  DELIVERY  ORDER  LEVEL  REPORT. 

SERIALNO.DBF,  SERNODAT . NDX ,  DESCRIP. DBF, 
DESCRIP. NDX,  EQUIP. DBF,  EQUIPSIT.NDX 

DATERPTS . PRG 


*  MODULES  CALLED  :  NONE. 

♦ 

*  GLOBAL  VARIABLE:  HI  DATE,  IIISITE,  UJDATE,  LOSI'I'E 

* 

*  LOCAL  VAR  LADLES :  ACCEPT,  CHOICE,  OOLCNT,  ERROR,  LINECT,  MDAY ,  MKEY , 

*  MMONTH,  MNEWDATE,  MOLDATE,  MSITE,  MYEAR,  PAGENO, 

*  SYSDA'rE ,  TODAY,  TODATE 


*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <= 


*  CASE  SELECTION  =  3  SERIAL  NUMBER  EFFECTIVE  DELIVERY  ORDER  LEVEL  RETORT 

+ 

*  G\LL  THE  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER .  DESPIS'D 

*  'HIE  EFFECTIVE  DELIVERY  ORDER  DATES  FOR  THE  USER  TO  SELECT  FROM. 

*  CALL  SERIAL  NUMBER  DATABASE  LNDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DA' IE 
+  AND  SCTE  NUMBER .  COPY  TO  TEMPONE,  INDEXED  ON  FEATURE  NUMBER.  RELATE 

*  TO  THE  DESCRIPTION  FILE  AND  PRODUCE  RETORT. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 

SET  COLOR  TO  Wf/B,  W+/B,  B 
Cl  EAR 

USE  SERIALNO 
GO  TOP 

II'  M  'F(  )  =  .T.  nitl'i 

SET  OOD)R  TO  W+/R,  W*/R 

■<  M,23  SAY  "  Tho  SERIAL  NUMBER  UitaUiso  is  ‘>11 ’IT!  " 

UU  DEI  AiY 
RETURN 
END  1 F 

.'?  FI  ASH  +  "S. REPORTS. SCR/" 

J  24,0  SAY  SPACE ( 80 ) 

SET  TOD  JR  TO  R*/  ,  R+ / 

J  2 , 2(>  SAY  "  SITE  SER I  Al ,  NUMBER  RETORT  " 

SET  TOD  JR  TO  W+/BR,  Wt/BR 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

* 

*  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST, 

*  IF  SO  ERASE  THEM 

* 

SET  CONSOLE  OFF 
ERASE  TEMPONE . DBF 
ERASE  TEMPONE.NDX 
SET  CONSOLE  ON 
USE  SERIALNO  INDEX  SERNOSIT 
* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSITE 
<a  13,66  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  IOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SEr  COLOR  TO  W+/R,  Wt/R 

STORE  '  Response  must  be  between  1  +  LOSITE  +; 

'  and  '  +  HISITE  *  1  '  TO  ERROR 
a  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  DOF ( )  =  .T.  THEN 

STORE  "  No  ser  al  numbers  exist  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SEI’  COLOR  TO  W+/R,  Wt/R 
a  24,13  SAY  MESSAGE 
DO  DELAY 
IOOP 

ELSE 

EX  IT 

END IF  BJF( )  =  .T. 

END  IF  .NOT.  (MSITE  >=  (OSITE  .AND.  MSITE  •■  =  HISITE) 

END DO  WHILE  .T. 

* 

SET  'DIOR  TO  W ♦  / BR ,  W+/BR 
J  13,15  SA'i  SPACE  (60) 

* 

SET  0)1  OR  TO  W+/B,  W+/B 

J  05,09  SAY  "The  following  Delivery  Order  Effective  Dates  exist  to 
a  05,69  SAY  MSITE 
SET  C )LOR  TO  /BR,  /BR 
a  1 3,05  SAY  SPACE (70) 

STORE  1  TO  I.INECI’ 

STORE  1.00  TO  COLCNT 
SHIRK  "OODOOO"  TO  MOLDATE 


r  Site" 


4  U  5 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  267 

Page  3  SNODTRPT.PRG  Program  Listing 


101  * 

102  DO  WHILE  SITENO  =  MSITE 

103  IF  (OOLCNT  -  (COLCNT  *  (OOLCNT/3))  =  0.00)  THEN 

104  4LINECT+6 , 57  SAY  EFFDATE 

105  ELSE 

106  IF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

107  aLINECT+6 , 38  SAY  EFFDATE 

108  ELSE 

109  ALINECT+6 ,  1  9  SAY  EFFDATE 

110  END IF  (OOLCNT  -  (OOLCNT  *  (COLCNT/2))  =  0.00) 

111  END IF  (COLCNT  -  (OOLCNT  *  (COLCNT/3))  =  0.00) 

112  IF  (OOLCNT  -  (COLCNT  *  (CDLCNT/3))  =  0.00)  THEN 

113  LLNECT  =  1  +  LINECT 

114  COLCNT  =  1 .00 

1 1 5  ELSE 

1  1  6  COLCNT  =  COLCNT  +1.00 

117  END IF  (OOLCNT  -  ( OOLCNT  *  (OOLCNT/3))  =  0.00) 

1 1 8  STURE  EFFDATE  TO  MOLDATE 

119  * 

120  DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

121  SKIP+2 

1 22  ENDDO 

123  * 

124  IF  EOF( )  THEN 

125  EXIT 

126  ELSE 

127  SKIP 

128  ENDIF  EOF( )  =  .T. 

129  ENDDO  WHILE  SITENO  =  MSITE 

130  * 

131  STORE  DTOC ( DATE ( ) )  TO  SYSDATE 

132  STORE  SUBSTR( SYSDATE, 7, 2)  +  SUBSTR ( SYSDATE , 1 , 2 )  +; 

133  SUBSTR (SYSDATE, 4, 2)  TO  MDATE 

134  STORE  SPACE (17)  +  'Input  Effective  Date  (Range  ’  +  LODATE  +; 

135  '  to  '  +  HIDATE  +  ')'  +  SPACE(17)  iO  MESSAGE 

136  SET  COLOR  TO  /W,  /W 

137  9  24,0  SAY  MESSAGE 

138  SEI"  COLOR  TO  W+/B,  W+/B 

139  ia  3,29  SAY  "EFFECTIVE  DATE:  " 

140  * 

141  USE  SERIALNO  INDEX  SERNODAT 

142  STORE  "000000"  TO  MOLDAIE 

1 43  * 

144  DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

145  STORE  MDATE  TO  MOLDATE 

M6  sirr  ooiiOR  to  r+/b,  r+/b 

147  a  3,45  GET  MOLDAiE  PICT  "999999" 

1 48  READ 

149  LD  WHILE  .T. 

150  IF  .NOT.  ( SUBSIR ( MOLDATE ,1,2)  >  "8?"  .AND.; 


404 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 
1  74 

175 

176 
1  77 

178 

179 

180 
181 
i  82 
183 

1  84  j 
1  85  j 
186 

187 

188 
189 
1  90 

1  91  J 
1  92  j 
19  3! 
1  94  , 
195j 
1  “6  ; 
1  97 
r<8 

1  9° 
200 


SUBSTR ( MOLDATE ,1,2)  <=  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 

a  24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99  " 

DO  DELAY 

SET  COLOR  TO  /W,  /W 
3  24,0  SAY  MESSAGE 
STORE  SUBSTR ( MDATE, 1 ,2)  TO  MYEAR 
SETT  COLOR  TO  R+/B,  R+/B 
0  3,45  GET  MYEAR  PICT  "99" 

READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 

ELSE 

EXIT 
END  IF 

ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  .NOT.  (SUBSTR (MOLDATE, 3,2)  >=  "01"  .AND.; 

SUBSTR ( MOLDATE ,3,2)  <=  "12")  THEN 
SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

a  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 

DO  DELAY 

SET  COLOR  TO  /W,  /W 

a  24,0  SAY  MESSAGE 

STORE  SUBSTR (MDATE, 3, 2)  TO  MMONTH 

SET  COLOR  TO  R*/B,  R+/B 

a  3,47  GET  MMONTH  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE, 1 ,21  *  MMONTH  +; 

SUBSTR (MOLDATE, 5, 2)  'TO  MOLDATE 

ELSE 

EXIT 
END  IF 

ENDDO  WHILE  .T. 

1X1  WHILE  .T. 

IF  ( ( SUBSTR ( MOLDATE ,3,2)  -  "04"  .UR.  SUBSTR ( MOLDATE ,3,2)  ^  "Ob"  .uR.; 

SUBSTR ( MOLDATE ,3,2)  =  "09"  .OR.  SUBSTR) MOLDATE, 3 , 2 )  -  "11")  .AND.  .NO 
(SUBSTR (MOLDATE,  8,2)  >=  "01"  .AND.  SUBSTR ( MOLDATE ,  5 , 2  )  -  "30"))  '111171 

SET  COLOR  TO  W/B,  W/B 
1  24,0  SAY  SPACE (80) 

SET  CHAR  'TO  W ♦  / R ,  Wt/R 

i  24,1 1’  SAY  "  Day  portion  of  dale  must  l>?  Lietween  01  and  30 

:»  :t:;ay 

. ''171'  i’RiH  TO  /W,  /W 
•'  2  1,  !  SAY  MESSAGE 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 


212 

213 

214 

215 

216 
217 


218 

219 

220 
221 
222 

223 

224 

225 

226  * 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 


STORE  SUBSTR ( MDATE ,5,2)  TO  MDAY 
SET  COLOR  TO  R+/B,  R+B 
@3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,4)  +  MDAY  TO  MOLDATE 
LOOP 

ELSE 


IF  (SUBSTR (MOLDATE, 3, 2)  =  "02"  .AND.  .NOT.; 

(SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

SUBSTR ( MOLDATE ,5,2)  <=  "28"))  THEN 
SET  COLOR  TO  W/B,  W/B 
@24,0  SAY  SPACE ( 80 ) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  " 
DO  DELAY 

SEr  COLOR  TO  /W,  /W 
@  24,0  SAY  MESSAGE 
STORE  SUBSTR ( MDATE ,5,2)  TO  MDAY 
SET  COLOR  TO  R+/B,  R+B 
@  3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR ( MOLDATE ,1,4) 

LOOP 

ELSE 

IF  .NOT.  (SUBSTR (MOLDATE, 5, 2) 

SUBSIR  (MOLDATE, 5, 2) 

SEr  COLOR  'TO  W/B,  W/B 
■a  24,0  SAY  SPACE (80) 

SET  COLOR  TO  W+/R,  W+/R 
a  24,16  SAY  "  Day  portion 
DO  DELAY 

SEr  COLOR  TO  /W,  /W 
a  24,0  SAY  MESSAGE 
STORE  SUBSIR  ( MDATE , 5 , 2 )  TO  MDAY 
SET  COLOR  TO  R  +  /B,  R+B 
a  3,49  GEr  MDAY  PICT  "99" 

READ 

STORE  SUBSIR  ( MOLDATE  ,1,4)  +  MDAY  TO  MOLDA'IE 
LOOP 


+  MDAY  'TO  MOLDA'IE 


>=  "01"  .AND.; 
<=  "31")  THEN 


of  date  must  be  between  01  and  31 


242 

243 

244 

245 

246 

247 

248  * 

249 

250 


ELSE 

EXIT 
END  IF 
ENDIF 
END  IF 

ENDDO  WHILE  .T. 

GO  TOP 

STORE  MS  TIE  +  MOLDA'IE  'TO  MKEY 
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FIND  &MKEY 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 
a  24,0  SAY  SPACE (80) 

STORE  "  EFFECTIVE  DATE  "  +  MOLDATE  +  "  does  not  exist  for  site 
MSITE  +  ",  try  another  "  TO  NODATE 
SET  COLOR  TO  W+/R,  W+/R 
@  24,10  SAY  NODATE 
DO  DELAY 

SET  COLOR  TO  /W,  /W 
@24,0  SAY  MESSAGE 
STORE  "000000"  TO  MOLDATE 
LOOP 

ELSE 

EXIT 

ENDIF  EOF( )  =  .T. 

ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HI DATE) 

* 

SEI'  OOLOR  TO  W+/B,  W+/B 
fa  05,05  SAY  SPACE (70) 

@24,0  SAY  SPACE ( 80 ) 

* 

*  CLEAR  LISTING  OF  EFFECTIVE  DATES  FI«0M  SCREEN 

* 

SET  OOLOR  TO  /BR,  /BR 
@07,2  SAY  SPACE ( 76 ) 

@  08,2  SAY  SPACE( 76 ) 

@09,2  SAY  SPACE! 76) 

@  10,2  SAY  SPACE( 76 ) 

@  11,2  SAY  SPACE! 76) 
a  12,2  SAY  SPACE( 76) 
a  13,2  SAY  SPACE (76) 

@  14,2  SAY  SPACE( 76 ) 

@  15,2  SAY  SPACE! 76) 

@  16,2  SAY  SPACE(  76 ) 
a  17,2  SAY  SPACE! 76) 
a  18,2  SAY  SPACE! 76) 
a  19,2  SAY  SPACE! 76) 
a  20,2  SAY  SPACE (76) 
a  21 ,2  SAY  SPACE! 76) 


SET  COLOR  TO  R+/  ,  R+/ 
@  13,18  SAY  "  CREATING 


IEMPORARY  DATABASE  AND  INDEX  FILE 


COPY  TO  TEMPONE  FOR  SI  TEND  /=  “AMSITE"  ./AND.  EFFDATE  =  "SMOLDATE" 
SELECT  1 
USE  TEMPONE 

INDEX  ON  FEATURENO  TO  TEMIONE 
SELECT  2 

USE  DKSCRIP  INDEX  DENCH  IP 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331  j 

332  ! 

33  3| 
334  | 
335; 
3  36 

337 

338 
339' 

340  ! 

341 

342 

34  3  ; 
344, 
345 


SELECT  TEMPONE 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 
GO  TOP 
* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  'HIE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

* 

SET  COLOR  TO  W+/BR,  W+/BR 
@  13,15  SAY  SPACE! 60) 

@  13,16  SAY  "  Do  you  want  a  printed  report?  (Yes  or  No): 

SET  COLOR  TO  /BR,  /BR 
<a  13,49  SAY  "Y" 
a  13,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
4  13,62  GET  ACCEPr  PICT 
READ 
* 

*  ENSURE  THAT  WE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

* 

DO  MIILE  .NOT.  (ACCEPr  -  "N"  .OR.  ACCEPr  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT’ 

ENDIF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT’  =  "Y") 

SET -COLOR  TO  /BR,  /BR 
a  13,62  GET  ACCEPr  PICT 
READ 

ENDDO  MULE  .NOT.  (ACCEPr  =  "N"  .OR.  ACCEPT  -  "v" ) 

* 

SET  COLOR  TO  /BR,  /BR 

a  13,15  SAY  SPACE) 55 ) 

* 

IF  ACCEPr  =  "Y"  'WEN 

??  FIvTSH  f  "W. PRINTER/" 
sur  CONSOLE  OFF 
WAIT  TO  CHOICE 
SET  a»JSt>I£  ON 
SET  OjIGR  TO  W/B,  N/t3 
I  22,10  SAY  SPACE (65) 

SHORE  ! /IOC (DATE!  )  )  V  >  TODAY 

STORE  SUBSTR  ( TODAY  ,  4 , 2  )  ♦  "  "  ♦  '  MONT!  1  ( DATE (  )  )  ♦  "  !•*"  ♦; 

SU1 iSTR ( TODAY ,  ,2)  TV'  TODATE 
ST*  RE  u  TO  PAGED*  * 

STORE  M  '1*0  MULCT 


34/  SLT  0*1/  >R  TO  R *  /  ,  R*/ 
348,  SIN  DEVICE  TO  PRINT' 

3 4'>  i  * 

iso  do  while  .r«rr.  row  ) 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389  | 
390 ; 
391 
•/>? 

393  | 

394 
305  | 

396  | 

397  | 

vm  j 

’99  i 
400  | 


DO  WHILE  (LINECT 
a  LINECT, 3 
@  LINECT, 7 
a  LINECT, 15 
a  LINECT, 24 
?  LINECT, 52 
a  LINECT, 60 
a  LINECT, 65 
a  LINECT, 70 


<=  60  .AND.  .NOT.  EOF( ) ) 

SAY  SITENO  PICT  ”99" 

SAY  B->CLIN  PICT  "9999" 

SAY  FEATURENO  PICT  "999999" 
SAY  B- >DESCIPT  PICT  "!!!!!!!! 
SAY  EFFDATE  PICT  "999999" 

SAY  TOTQTY  PICT  "999" 

SAY  CZTY  PICT  "999" 

SAY  SERIALNO  PICT  " ! ! ! ! i ! ! ! " 

1 


LINECT  =  LINECT 
SKIP 

ENDDO  WHILE  (LLNECT  <  =  60  .AND.  .NOT.  EOF( 


IF  EOF( )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

a  62,37  SAY  "Page  "  SIR ( PAGENO , 2 , 0 ) 

END IF  PAGENO  >  1 
EJECT 

SET  DEVICE  TO  SCREEN 

a  13,25  SAY  "  FINISHED  PRINTING  USE  REPORT  " 

DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  TO  SCREEN 

a  13,27  SAY  "  Printing  Page  Number  "  +  SIR  (PAGENO  +  1,2,0)  +  "  " 
SET  DEVICE  TO  PRINT 
END IF  OOF ( )  =  .T. 


IF  (LINECT  >  60  .AND.  PAGENO  >  1  )  'THEN 
a  62,37  SAY  "Page  "  ♦  STR ( PAGENO , 2 , 0 ) 

END IF  (LINECT  >  60  .AND.  PAGENO  >  1) 

3  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 
a  3,29  SAY  "EFFECTIVE  DATE:  " 
a  3,45  SAY  MOLDA'IE 
a  4,60  SAY  TODAI'E 

a  6,52  SAY  "EFFECT  TOT  COMPT  SERIAL" 

a  7,2  SAY  "SHE  CLIN  FEATURE#  DESCRIPTION  DAIE" 

a  7,60  SAY  "(JTY  CTY  NUMBER" 

a  8,2  SAY  "============================^===================c' 

J  8,51  SAY  "==========================^=" 

PAGEvlO  =  PAGENO  +■  1 
STORE  10  TO  LINECT 


ENDLO  WHILE  .NOT.  NOFt  ) 

ELSE 

SET  COLOR  TO  GR+/B,  GR  +  /B 
a  4,52  SAY  "EFFECT  "TOT  COMPT  SERIAL" 
a  5,2  SAY  "SITE  GINN  FEATURE#  DESCR  I  IT  1 1  7 . 

a  5,  BO  SAY  "OIT  grv  NUMBER" 

SET  <TOU)R  70  /HR,  /PR 


40  9 
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401 

402 

403 

404 


407 

408 

409 

410 

411  t 

412 

413 
41  4 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 


STORE  0  TO  LINECT 

* 


* 


WHILE 

.NOT.  EOF( ) 

DO  WHILE  LINECT  < 

15 

GK 

vr 

LINECT+7 , 3 

SAY 

-a 

LINECT+7 , 7 

SAY 

a 

LINECT+7, 15 

SAY 

a 

LINECT+7, 2 4 

SAY 

a 

LINECT+7, 52 

SAY 

a 

LINECT+7, 60 

SAY 

a 

LINECT+7, 65 

SAY 

a 

LINECT+7, 70 

SAY 

INECT  =  LINECT  + 

STTENO  PICT  "99" 

B- >CLIN  PICT  "9999" 

FEATURED)  PICT  "999999" 

B->DESCIPT  PICT  "!!  1 !!  1 !!!  1 !  1 1 !!!!  I !!!!!!! I " 
EFFDATE  PICT  "999999" 

TCTSTY  PICT  "999" 

OTY  pict  "999" 

SERIALNO  PICT  "!!!!!!!!" 

1 


SKIP 

IF  EOF (  )  =  .T.  TIEN 

SET  COLOR  TO  W+/R,  W+/R 

<1  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 
SET  CONSOLE  OFF 
WAIT  TO  ACCEPT 
SET  CONSOLE  ON 


EXIT 

ENDIF  EOF( )  =  .T. 
ENDDO  WHILE  LINECT  <  15 


IF  BOFO  =  .T.  THEN 
EXIT 

ENDIF  EOF( )  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
i?  22,57  GCT  QIOICE  PICT  "l" 

READ 

ENSURE  THAT  HE  USER'S  RESPONSE  IS  EITIER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" ) 

IF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" )  HEN 
SET  COLOR  TO  W+/R,  W+/R 

ia  24,24  SAY  "  Response  must  be  either  C  or  X  " 
DO  DELAY 

STORE  "C"  TO  QIOICE 

ENDIF  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X") 

SET  COLOR  TO  R  +  /B,  R  +  /B 
fl  22,57  GET  QIOICE  PICT  "i" 

READ 

ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  QIOICE  =  "X" ) 


DETERMINE  IF  TIE  USER  WANTS  TO  gUIT  OR  CONTINUE 
IF  QIOICE  -  "C" 


45U 


SET  COLOR  TO  /HR,  /BR 
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451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486  i 

487 

488  | 

489  | 


9 

07,2 

SAY 

SPACE (76) 

9 

08,2 

SAY 

SPACE (76) 

§ 

09,2 

SAY 

SPACE (76) 

9 

10,2 

SAY 

SPACE (76) 

/a 

c 

11  1 
'if*- 

C  A  V 
unj. 

c,r>Ar*c' /  ic  \ 

•  (  <  U  ) 

@ 

12,2 

SAY 

SPACE (76) 

§ 

13,2 

SAY 

SPACE ( 76 ) 

9 

14,2 

SAY 

SPACE (76) 

9 

15,2 

SAY 

SPACE( 76) 

9 

16,2 

SAY 

SPACE (76) 

9 

17,2 

SAY 

SPACE (76) 

9 

18,2 

SAY 

SPACE (76) 

9 

19,2 

SAY 

SPACE) 76 ) 

9 

20,2 

SAY 

SPACE (76) 

9 

21  ,2 

SAY 

SPACE (76) 

STORE  0  TO 

LINECT 

ELSE  . 

EXIT 

ENDIF  CHOICE  =  "C" 

* 

ENDDO  WHILE  .NOT.  BOF( ) 

* 

ENDIF  ACCEPT  =  "Y" 

* 

*  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

* 

CLOSE  DATABASES 
SET  CONSOLE  OFF 
ERASE  TEMPONE . DBF 
ERASE  TEMPONE. NDX 
SET  CONSOLE  ON 
SET  PRINT  OFF 
* 

*  RETURN  TO  CALLING  PROGRAM 

* 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  COLCNT,  LINECT,  PAGENO, ; 

SYSDATE ,  'TODAY ,  TODATE 

RETURN 

**  +  ***********************  +  **********************************:♦:**********  + 
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W.».* 


*  PROCEDURE  SNOPJRPT.PRG 


*  AUTHORS 


PURPOSE 


♦  INPUT  FILES 


*  OUTPUT  FILES 


*  CALLED  BY 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  SERIAL  NUMBER 
PROJECT  LEVEL  REPORT. 

SER I ALNO . DBF ,  SERNOPRJ . NDX ,  DESCRIP. DBF,  DESCRIP. NDX 


PROJRPrS .  PRG 


*  MODULES  CALLED  :  DEL AY. PRG 

* 

♦  LOCAL  VARIABLES:  ACCEPf,  CHOICE,  LINECT,  PAGENO,  TODAY,  TODATE 


*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <= 


*  CASE  SELECTION  =  2  SERIAL  NUMBER  PROJECT  LEVEL  REPORT 

* 

*  CALL  SERIAL  NUMBER  -DATABASE  INDEXED  ON  EFFECTIVE  DATE,  SITE  NUMBER, 

*  AND  FEATURE  NUMBER.  RELATE  TO  DESCRIP  FILE  ON  FEATURENO. 

* 

SET  ESCAPE  OFF 
SET  TALK  OFF 

SET  CDU)R  TO)  W+/B,  Wt-/B,  B 
CLEAR 

USE  SER I ALNO 
GO  TOP 

IF  EOF ( )  =  .T.  THIN 

SET  COLOR  'TO  Wf/R,  W+/R 

d  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

DO  DELAY 
RETURN 
END  IF 

??  FI  ASH  i  "S. REPORTS. SCR/" 

•>  24,iJ  SAY  SPACE (80) 

SET  OM>;R  !h  IA/  ,  Rt/ 

d  2,18  SAY  "  EgUIPMENT  SERIAL  NUMBER  PROUECT  I ,EVEL  REPORT  " 

se;  i-:.  ; 

"SE  SERIAL*#;  INDEX  SERI  JuPRJ. NDX 
SEES'I  2 

SE  :  i  . J-’ :  P  LSI. ’EX  PESCR1P 
:e:  Li".  SEE  SALS'  ’ 

s:r:  re: a:  .  s  :»  a.af -re:#  ■  ::.:o  deggrip 


A  -•  ..  A»  A 


'.--AA  «*• 


G  A -VTO  . .   -  .*• 


.  *,  •.  \ 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 


* 

*  CREATE  THE  SPLICE  SERIAL  NUMBER  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,16  SAY  "  Do  you  want  a  printed  report?  (Yes  or  No):  " 

SETT  COLOR  TO  /BR,  /BR 
<a  13,49  SAY  "Y" 

@  13,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
@  13,62  GET  ACCEPT  PICT  "!" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

&  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT’ 

ENDIF 

SET  COLOR  TO  /BR,  /BR 
@  13,62  GET  ACCEPT  PICT  "j" 

READ 

ENDDO 

* 

SET  COLOR  TO  /BR,  /BR 
@  13,15  SAY  SPACE ( 55) 

* 

IF  ACCEPT  =  "Y"  THEN 

??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 
WAIT  TO  CHOICE 
SET  CONSOLE  ON 
SET  COLOR  TO  W/B,  W/B 
@  22,10  SAY  SPACE( 65 ) 

STORE  0  TO  PAGEIO 

STORE  61  TO  LINECT 

STORE  DTOC ( DATE ( ) )  TO  TODAY 

STORE  SUBSTR ( 'TODAY ,4,2)  +  "  "  ♦  CMONTI 1  ( DATE ( ) )  +  "  19"  *; 

SUBSTR ( TODAY ,7,2)  TO  TODATE 
SET  COLOR  TO  R+/  ,  R+/ 

SET’  DEVICE  TO  PRINT 

* 

DO  WHILE  .NOT.  EOF(  ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 
a  LINECT,  3  SAY  SI'lENO 
«  LINECT, 7  SAY  DESCRIP- >CLIN 
a  LINECT’, 15  SAY  FEATURENO 


APPENDIX  B 


MAINTENANCE  MANUAL 


Page  277 


Page  3 


SNOPJRPT.PRG  Program  Listing 


101 

102 

103 

104 
1  OS 
106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131  i 
1  32 
133 

1  34 
135 
1  36 
1  37 

138 

139 

140 
1  41 

142 

143 

144 

145 

146 

147 

148 

149 

150 


* 


@  LINECT, 24  SAY  DESCRIP- >DESCIPT 

@  LINECT, 52  SAY  EFFDATE 

a  LINECT, 60  SAY  TCnjTY 

@  LINECT, 65  SAY  QTY 

fl  r . INEfT  .  7 0  SAY  SFRTAr.NO 

LINECT  =  LINECT  +  1 

SKIP 

ENDDO  WHILE 


IF  EOF( )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

a  62,37  SAY  "Page  "  ♦  STR ( PAGENO , 2 , 0 ) 

END  IF 
EJECT 

SET  DEVICE  TO  SCREEN 

@  13,25  SAY  ”  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 

EXIT 

ELSE 


SET  DEVICE  TO  SCREEN 

@  13,27  SAY  "  Printing  Page  Number  "  +  STR (PAGENO 
SET  DEVICE  TO  PRINT 
ENDIF 


1  ,2,0) 


It 


* 


IF  (LINECT  >  60  .AND.  PAGENO  >  1)  THEN 
@  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

ENDIF 

@  2,18  SAY  "  EQUIPMENT  SERIAL  NUMBER  PROJECT  LEVEL  REPORT 
4,62  SAY  TODATE 


6,52  SAY 
7,2  SAY 
7,60  SAY 
SAY 
SAY 


a  8,2 

a  8,51 


EFFECT’  TOT  OOMPT  SERIAL" 
SITE  CLIN  FEATURE# 

QTY  QTY  NUMBER" 


DESCRIPTION 


DATE" 


PAGENO  =  PAGENO  +  1 
STORE  10  TO  LINECT 


ENDDO  WHILE  .NOT'.  BJF(  ) 

* 


ELSE 

SET  COLOR  TO  GR+/B,  GR+/B 
a  4,52  SAY  "EFFECT  TUT  OJMPT  SERIAL" 

a  5,2  SAY  "SITE  CLIN  FEATURE#  DESCRIPTION  DATE" 

a  5,60  SAY  "QTY  QTY  NUMBER" 

SET  COLOR  TO  /BR,  /BR 
STORE  0  TO  LINECT 

* 

DO  WHILE  .NOT.  EOF (  ) 

DU  WHILE  LINECT  •  15 

a  LINECT  +7,3  SAY  SITENO 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


0 

LINECT+7 ,7 

SAY 

DESCRIP- >CLIN 

0 

LINECT+7 , 1 5 

SAY 

FEATORENO 

0 

LINECT+7, 24 

SAY 

DESCRIP- >DESCIPT 

0 

LINECT+7, 52 

SAY 

EFFDATE 

0 

LINECT+7, 60 

SAY 

TOTOTY 

0 

LINECT+7, 65 

SAY 

GTY 

0 

LINECT+7, 70 

SAY 

SERIALNO 

LINECT  =  LINECT  + 

1 

SKIP 

IF  EDF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 
SET  CONSOLE  OFF 
WAIT  TO  ACCEPT 
SET  CONSOLE  ON 
EXIT 
END  IF 

ENDDO  WHILE  LINECT  <  15 

IF  EOF( )  =  .T.  THEN 
EXIT 
END  IF 

SET  COLOR  TO  R  +  /B,  R+/B 
STORE  "C"  TO  CHOICE 
@  22,57  GET  CHOICE  PICT  "l" 

READ 

ENSURE  THAT  11  IE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

(a  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  OiOlCE 
ENDIF 

SET  COLOR  TO  R  +  /B,  R  +  /B 
0  22,57  GET  CHOICE  PICT  "!" 

READ 

ENDDO 

DETERMINE  IF  7 HE  USER  WANTS  TO  (jUIT  OR  CONTINUE 

IF  CHOICE  =  "C" 

SET  COLOR  TO  /BR,  /BR 
«l  07,2  SAY  SPACE (76) 

0  08,2  SAY  SPACE (76) 

0  09,2  SAY  SPACE ( 76 ) 

0  10,2  SAY  SPACE) 76 ) 

0  11,2  SAY  SPACE ( 76 ) 
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201  @12,2  SAY  SPACE ( 76 ) 

202  @13,2  SAY  SPACE<76) 

203  @14,2  SAY  SPACE(76) 

204  @15,2  SAY  SPACE(76) 

205  @16,2  SAY  SPACE(76) 

206  @17,2  SAY  SPACE(76) 

207  @18,2  SAY  SPACE ( 76 ) 

208  @19,2  SAY  SPACE(76) 

209  @20,2  SAY  SPACE (76) 

210  @  21  ,2  SAY  SPACE ( 76 ) 

211  STORE  0  TO  LINECT 

212  ELSE 

21 3  EXIT 

21 4  ENDIF 

215  * 

216  ENDDU  WHILE  .NOT.  BOF( ) 

217  * 

218  ENDIF 

219  * 

220  *  RETURN  TO  CALLING  PROGRAM 

221  * 

222  SET  PRINT  OFF 

223  RELEASE  ACCEPT,  Cl  10 ICE,  LINECT,  PAGENO,  TODAY,  TODATE 

224  CLOSE  DATABASES 

225  RETURN 

226  ******  ******************************************************************* 


APPENDIX  B:  MAINTENANCE  MANUAL  Page  280 
Page  1  SNOSTRPT.PRG  Program  Listing 


1  *  PROCEDURE  SNOSTRPT.PRG 

2  * 

3  *  AUTHORS  :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY ,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE  :  PROVIDE  THE  USER  A  SPLICE  SERIAL  NUMBER 

9  *  SHE  LEVEL  REPORT. 

10  * 

11  *  INPUT  FILES  :  SERIALNO . DBF ,  SERNOSIT.NDX ,  DESCRIP. DBF, 

12  *  DESCRIP. NDX 

13  * 

14  *  CALLED  BY  :  SITERPTS.PRG 

15  * 

16  *  MODULES  CALLED  :  DELAY. PRG 

17  * 

18  *  GLOBAL  VARIABLE:  HIS  HE,  LOSITE 

19  * 

20  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE, 

21  *  PAGENO,  TODAY,  TODATE 

22  * 

23  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========= 

24  * 

25  *  CASE  SELECTION  =  3  SERIAL  NUMBER  SI1E  LEVEL  REPORT 

26  * 

27  SET  ESCAPE  OFF 

28  SET  TALK  OFF 

29  SET  COLOR  TO  W+/B,  W+/B,  B 

30  CLEAR 

31  USE  SERIALNO 

32  GO  TOP 

33  IF  EOF( )  =  .T.  THEN 

34  SET  COLOR  TO  W+/R,  W+/R 

35  @  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

36  DO  DELAY 

37  RETURN 

38  ENDIF 

39  ??  FLASH  +  "S. REPORTS. SCR/" 

40  <3  24,0  SAY  SPACE (80) 

41  SET  COLOR  TO  R+/  ,  R+/ 

42  '4  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 

43  SET  COLOR  TO  W+/BR,  W+/BR 

44  3  13,15  SAY  "Enter  site  number  for  which  the  report  is  dosirol:" 

45  * 

46  *  GALL  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER, 

47  *  FEATURE  NUMBER  AND  SERUM.  NUMBER.  RELATE  TO  DESCR I  IT  LON  FILE. 

48  * 

49 

50 


SEIjECT  1 

USE  SERIALNO  INDEX  SERNOSIT.NDX 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 
SELECT  SERIALNO 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 
* 

DO  WHILE  .T. 

SET  COLOR  TO  /BR,  /BR 
STORE  LOSITE  TO  MSITE 
@  13,66  GET  MSITE  PICT  '99' 

READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  OOLOR  TO  W+/R,  W+/R 

STORE  1  Response  must  be  between  '  +  LOS  HE  +; 

’  and  '  +  HISITE  +  '  '  TO  ERROR 
0  24,22  SAY  ERROR 
DO  DELAY 
LOOP 

ELSE 

GO  TOP 

FIND  & MSITE 

IF  EOF ( )  =  .T.  THEN 

STORE  "  No  serial  numbers  exist  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  OOLOR  TO  W+/R,  W+/R 
@  24,13  SAY  MESSAGE 
DO  DELAY 
LOOP 

ELSE 

EXIT 

ENDIF  EDF( )  =  .T. 

ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

ENDDO  WHILE  .T. 

* 

SET  OOLOR  TO  W+/BR,  W+/BR 
3  13,15  SAY  SPACE( 60) 

* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  RETORT  AND  CHECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

* 

a  13,16  SAY  "  Do  you  want  a  printed  report!  (Y<>s  or  No):  " 

SET  COLOR  TO  /BR,  /BR 
a  13,49  SAY  "Y" 

(4  13,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 
a  13,62  GET  ACCEPT  PICT  "l" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

* 

DO  WHILE  .NOT.  (ACCEPr  =  "N"  .OR.  ACCEPT  =  "V" ) 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 
1  32 
1  33 
1  34 
135 
1  36 
137 
1  38 
1  39 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

1  j0 


IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

9  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 

END IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

SET  COLOR  TO  /BR,  /BR 
0  13,62  GET  ACCEPT  PICT  "!" 

READ 

ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

* 

SET  OD LOR  TO  /BR,  /BR 
0  13,15  SAY  SPACE! 55 ) 

+ 

IF  ACCEPT  =  "Y"  THEN 

??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 
WAIT  TO  CHOICE 
SET  CONSOLE  ON 
SET  COLOR  TO  W/B,  W/B 
0  22,10  SAY  SPACE) 65) 

STORE  DTOC  ( DATE  (  )  )  TO  TODAY 

STORE  SUBSIR ( TODAY ,4,2)  +  "  "  +  CJ40NTH  ( DATE  ( ) )  *  "  19"  +; 

SUBSTR ( TODAY ,7,2)  TO  TODATE 
STORE  0  TO  PAGENO 
STORE  61  TO  LINECT 
SET  COLOR  TO  R+/  ,  R+/ 

SET  DEVICE  TO  PRINT 

* 

DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 

0  LINECT, 3  SAY  SITENO 
0  LINECT, 7  SAY  DESCRIP- >CLIN 
0  LINECT,  15  SAY  FEATURENO 
0  LINECT,  24  SAY  DESCRIP- >DESC I  PI' 
a  LINECT, 52  SAY  EFFDATE 
0  LINECT, 60  SAY  'TOIXJTY 
0  LINECT, 65  SAY  yT Y 
0  LINECT, 70  SAY  SERIALNO 
LINECT  =  LINECT  +  1 
SKIP 

ENDDO  WHILE  WHILE  (LINECT  •.  =  fjO  .AND.  .NUT.  EOF(  )  ) 

♦ 

IF  EX0F (  )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

0  62,37  SAY  "Page  "  f  SIR (PAGENO, 2,0) 

END  IF  PAGENO  >  1 
EJECT 

SET  DEVICE  TO  SCREEN 

a  13,25  SAY  "  FINISHED  PRINTING  THE  REPOT  " 
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151 

152 

153 
1  54 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
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DO  DELAY 
EXIT 

ELSE 

SET  DEVICE  TO  SCREEN 

@  13,27  SAY  "  Printing  Page  Number  "  +  STR ( PAGENO  +  1,2,0)  +  "  " 
SET  DEVICE  TO  PRINT 
END IF  EOF ( )  =  .T. 

♦ 

IF  (LLNECT  >  60  .AND.  PAGENO  >  1)  THEN 

0  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1) 

(a  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 

@4,60  SAY  TODATE 

@6,52  SAY  "EFFECT  TOT  COMPT  SERIAL" 

@7,2  SAY  "SITE  CLIN  FEATURE#  DESCRIPTION  DATE" 

@7,60  SAY  "QTY  QTY  NUMBER" 

@  8,2  SAY  "=================================================" 

@  8,51  SAY  "============================" 

PAGENO  =  PAGENO  +  1 
STORE  10  TO  LINECT 

♦ 

ENDDO  WHILE  .NOT.  EOF( ) 

* 

ELSE 

SET  COLOR  TO  GR+/B,  GR+/B 

@4,52  SAY  "EFFECT  TOT  OOMPT  SERIAL" 

@  5,2  SAY  "SIrTE  CLIN  FEATURE#  DESCRIPTION  DATE" 

@5,60  SAY  "QTY  QTY  NUMBER" 

SET  COLOR  TO  /BR,  /BR 
STORE  0  TO  LINECT 

* 

DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  LINECT  <  15 

@  LINECT+7 , 3  SAY  SITENO 
@  LINECT+7, 7  SAY  DESCRIP- >CLIN 
9  LINECT+7, 15  SAY  FEATURENO 
@  LINECT+7, 24  SAY  DESCRIP- >DESCIPT 
9  LINECT+7, 52  SAY  EFFDATE 
9  LINECT+7, 60  SAY  TOTQTY 
9  LINECT+7, 65  SAY  QTY 
a  LINECT+7, 70  SAY  SERIALNO 
LINECT  =  LLNECT  +  1 
SKIP 

IF  EOF(  )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

9  24,18  SAY  "  End  of  FiLe  reached,  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 
WAIT  TO  ACCEPT 
SET  CONSOLE  ON 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 
229 


249 

250 


END IF  EOF( )  =  .T. 

ENDDO  WHILE  LINECT  <  15 

IF  EOF( )  =  .T.  THEN 
EXIT 

ENDIF  EOFO  =  .T. 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
@  22,57  GET  CHOICE  PICT 
READ 

ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  C  or  X  " 
DO  DELAY 

STORE  "C"  TO  QIOICE 

ENDIF  .NOT.  (CHOICE  =  "C"  .OR^  CHOICE  =  "X") 

SET  COLOR  TO  R+/B,  R+/B 
@  22,57  GET  CHOICE  PICT  "l" 

READ 

ENDDO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QIOICE  =  "X" ) 
DETERMINE  IF  THE  USER  WANTS  TO  UUIT  OR  CONTINUE 


IF  aiOICE  =  "C" 
SET  COLOR  TO 


/BR,  /BR 


230 

3 

07,2 

SAY 

SPACE (76) 

231 

3 

08,2 

SAY 

SPACE( 76 ) 

232 

3 

09,2 

SAY 

SPACE ( 76 ) 

233 

3 

10,2 

SAY 

SPACE! 76) 

234 

3 

11,2 

SAY 

SPACE (76) 

235 

•a 

12,2 

SAY 

SPACE ( 76 ) 

236 

a 

13,2 

SAY 

SPACE (76) 

237 

3 

14,2 

SAY 

SPACE! 76) 

238 

a 

15,2 

SAY 

SPACE (76) 

239 

•a 

16,2 

SAY 

SPACE  ( _76) 

240 

17,2 

SAY 

SPACE (76) 

241 

a 

18,2 

SAY 

SPACE! 76) 

242 

d 

19,2 

SAY 

SPACE! 76) 

243 

a 

20,2 

SAY 

SPACE! 76) 

244 

a 

21  ,2 

SAY 

SPACE (76) 

245 

STORE  0  TO 

LINECT 

246 

ELSE 

247 

!  e: 

KIT 

248 

ENDIF 

a  DICE  = 

"C" 

ENDLXJ  WHILE  .NOT.  EOF(  ) 


421 


\ 
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251  * 

252  END IF  ACCEPT  =  "Y" 

253  * 

254  *  RETURN  TO  CALLING  PROGRAM 

255  * 

256  SET  PRINT  OFF 

257  RELEASE  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE,  PAGENO,; 

258  TODAY,  TODATE 

259  CLOSE  DATABASES 

260  RETURN 

261  ****************************** ************************************ ******* 
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